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CHAPITRE 1: INTRODUCTION A LA PROGRAMMATION DU DDI-1 


1,1 QUE PERMET DE FAIRE UN LECTEUR DE DISQUETTE? 


L'Amstrad CPC 464 est une machine très appréciée qui se distingue par son 
bon rapport possibilités/prix. Elle est livrée avec un lecteur de 
cassette intégré, 


Depuis peu existe également sur le marché l'Amstrad CPC 664, compatible 
vers le bas, qui possède un lecteur de disquette intégré. Le CPC 664 est 
en outre doté d’un autre clavier et son Basic a été étendu de quelques 
instructions. 


Les deux versions (comme d'ailleurs tout autre ordinateur) ne disposent 
cependant que de ce qu’on appelle une mémoire fugitive: les données et 
programmes entrés dans l'ordinateur sont perdus dès qu'on coupe le 
courant, Pour pouvoir conserver ces informations, on a besoin de mémoires 
externes telles par exemple qu'un lecteur de cassette. 


Les informations dans l'ordinateur sont alors converties en impulsions 
magnétiques et écrites sur cassette. Le procédé technique se présente 
exactement comme celui utilisé dans votre chaîne stéréo, Si vous écoutez 
une bande magnétique sur laquelle vous avez sauvegardé un programme, vous 
n'entendrez que des sons aigus assez désagréables. 


Vous avez certainement découvert, à la lecture du manuel d'utilisation de 
la machine, que vous pouvez écrire sur la cassette avec deux vitesses 
différentes. Lors de la lecture, l'ordinateur adapte automatiquement sa 
vitesse de lecture à la vitesse utilisée lors de l'écriture, SPEED WRITE 
vous permet d'obtenir une vitesse d'écriture du lecteur de cassette de 
1000 ou de 2000 bauds. Que signifie Baud? Baud est mis pour "bits par 
seconde”, 1000 bauds signifie donc que l'ordinateur écrit, et lira plus 
tard, 1000 bits par seconde sur la cassette, 1000 bits, c'est-à-dire 
1000/8, soit 125 octets par seconde. Avec 2000 bauds, ce sont 250 octets 
qui seront écrits ou lus par seconde. Pourquoi ne travaillerait-on donc 
pas toujours avec une vitesse de 2000 bauds? Tout simplement parce qu'à 
cette vitesse le danger d'une erreur de lecture/écriture est plus grand 
et que vous risquez de ne pas retrouver lors de la lecture la même chose 
que ce que vous aviez écrit. Vous voyez certainement ce que cela 
signifie. 


Un lecteur de disquette présente l'avantage de permettre une seconde 
tentative de lecture lorsqu'une erreur de lecture s’est produite. 
Normalement, ce sont jusqu’à 10 tentatives de lecture d’un secteur qui 
seront effectuées avant que ne soit donné le message indiquant que le 
secteur n'est pas lisible. Un secteur est la plus petite unité pouvant 
etre appelée sur la disquette, Sur votre lecteur de disquette, un secteur 
comprend 512 octets, Sur un lecteur de cassette, seul un dispositif 
mécanique compliqué permettrait de faire rembobiner la bande par 
programme, sans quoi aucune nouvelle tentative de lecture n'est possible. 
Mais sur l'’Amstrad, même cela n'est pas possible. 


Pour une utilisation professionnelle, le lecteur de cassette convient 
mal, et ce pour deux raisons principales: 


1, Un lecteur de cassette est beaucoup trop lent, Les programmes 
professionnels sont toujours plus complets et donc toujours plus longs. 
Ii n'est pas rare qu'ils atteignent une taille de 25 Koctets, ce qui 
signifie qu'on doit se résoudre à un long délai d'attente lors du 
chargement de tels programmes, Il faut en outre le plus souvent écrire et 
lire également des données, ce qui nous amène déjà au second 
inconvénient: 


2. Il est très difficile de charger des fichiers bien définis à partir de 
la cassette, Un fichier représente soit un programme sauvegardé, soit des 
données sauvegardées. Si vous avez sauvegardé plusieurs programmes sur 
cassette, vous devez soit, ce qui est compliqué et très peu précis, faire 
défiler la bande et essayer ensuite de charger le fichier, soit laisser 
l'ordinateur chercher le fichier voulu, ce qui signifie toutefois qu'il 
doit alors repasser sur tous les autres fichiers figurant sur la bande 
avant le fichier recherché. Vous n'avez pas sur une cassette d'accès 
direct à chaque fichier figurant sur la cassette, Les spécialistes 
parlent de "Random access”. 


Les informations arrivent séquentiellement, c'est-à-dire octet par octet 
ou caractère par caractère et vous ne pouvez commander le déroulement de 
cette procédure. Lorsque vous voulez lire le 10ème enregistrement d'un 
fichier, il vous faut d’abord lire les 9 enregistrements précédents. Avec 
l'accès direct, vous pouvez dire directement “je voudrais lire le 10ème 
enregistrement”. 


Il est possible de remédier à ces inconvénients du travail sur cassette: 
les disquettes offrent en effet une plus grande vitesse de travail et 


également une manipulation plus simple. 


Sur les grosses installations, on utilise des disques durs qui sont les 
frères atnés des disquettes. Un disque dur peut contenir Jusqu'à 50 
Moctets (50 Mégas = 50 millions). Toutefois on copie aujourd'hui encore 
des données importantes sur les bandes magnétiques, plus lentes, 
lorsqu'on veut archiver des données, Les bandes magnétiques conviennent 
parfaitement dans ce cas car elles occupent moins de place et sont moins 
coûteuses, 


Mais revenons au CPC et au travail sur disquette: 


#Bienvenue dans le cercle des heureux possesseurs d'un AMSTRAD DDI-1, 
Vous verrez vite que votre décision était la bonne et vous ne regretterez 
pas votre investissement." 


C'est ce que vous promet le manuel d'utilisation de votre lecteur de 
disquette AMSTRAD DDI-1. Nous voulons avec cet ouvrage vous convaincre de 
la Justesse de cette phrase d'introduction en vous montrant les 
possibilités que recèle ce lecteur de disquette, 


1,2 LA DISQUETTE 


1.2,1 L'évolution 


Il y encore quelques années, la plupart des disquettes avaient un format 
de 8 pouces. Ces disquettes se révélèrent cependant peu pratiques; un peu 
plus tard furent alors développées les disquettes 5 pouces 1/4 que l'on 
utilise aujourd'hui sur presque tous les ordinateurs familiaux ou 
personnels (IBM, Apple, Commodore, Sirius, etc...). Une révolution 
s'annonça avec Apple LISA et Macintosh qui utilisent des disquettes 3 
pouces et demi et le DDI-1 d'Amstrad travaille même avec des disquettes 
de 3 pouces. La miniaturisation avance donc visiblement également dans le 
domaine des mémoires externes. 

Comme on produit encore très peu de disquettes trois pouces, elles sont 
Jusqu'à présent assez chères. Mais une chute des prix ne devrait pas 
tarder, de sorte qu'elles ne coûteront vraisemblablement dans un an que 
la moitié de leur prix actuel, 


Vous connaissez certainement les disquettes 5 pouces 1/4 qui se composent 
d'une enveloppe en plastique souple et d'un disque disposé à l'intérieur. 
Sur vos disquettes, ces disques sont cependant protégés, pour des raisons 
de sécurité, par un boftier en plastique dur. Vous ne pouvez plus non 
plus atteindre avec vos doigts l'ouverture prévue pour la tête de 
lecture/écriture (voir figure 1 (1)). Cette ouverture est en effet dotée 
d'une fermeture métallique qui ne s'ouvre que lorsque la disquette est 
introduite dans le lecteur de disquette. 


Il en va de même pour l'orifice d'index (2), Les disquettes ont un 
orifice d'index pour que le lecteur de disquette “sache” toujours quand 
une nouvelle rotation se produit. Les orifices d'index sont reconnus par 
un faisceau lumineux, Cet orifice permet donc en fait au lecteur de 
disquette de s'orienter, Il existe aussi des lecteurs de disquette qui 
n'ont pas besoin de cet orifice d'index mais ces lecteurs sont en général 
plus lents car il faut alors résoudre ce problème par programmation. 


Ces deux ouvertures sont protégées par un clapet que vous pouvez, EN 
FAISANT TRES ATTENTION, écarter avec votre doigt. Prenez votre disquette 
dans la main, face B dirigée vers le haut, l'ouverture de la tête de 
lecture/écriture tournée vers l'extérieur. Introduisez ensuite votre 
ongle dans le rail de gauche jusqu'à ce que vous rencontriez un bouton en 
plastique blanc (3) que vous pouvez maintenant tirer vers vous jusqu'à la 


butée. Vous voyez que l'orifice d'index ainsi que l'ouverture pour la 
tête de lecture/écriture sont maintenant libérés. Examinez maintenant 
directement la véritable disquette sur laquelle sont stockées les 
informations. Mais ne la touchez surtout pas avec vos doigts! Au milieu 
se trouve l'orifice de commande par lequel la disquette est prise et 
tournée. Si vous faites maintenant, avec beaucoup de précautions, pivoter 
la disquette avec votre autre main, vous pourrez voir également l'orifice 
d'index. Refermez maintenant la disquette, en relâchant le bouton blanc. 


Il nous reste pour terminer à parler des deux ouvertures qui servent à la 
protection contre l'écriture (5), Sur le bord gauche de chaque disquette 
se trouve un orifice doté d’une petite flèche, Il sert à protéger une 
disquette contre l'écriture, Vous connaissez déjà ce principe pour votre 
lecteur de cassette, Lorsque l'orifice est fermé, vous pouvez écrire sur 
la disquette, Mais vous pouvez également repousser le bouton plastique, 
de façon à ce que l'orifice soit ouvert. Dans ce cas, il ne sera plus 
possible d'écrire sur la disquette, ce qui est très intéressant lorsque 
Vous avez sur une disquette des programmes précieux dont vous voulez 
éviter à tout prix qu'ils ne soient effacés par mégarde. Sur les 
disquettes fournies par Amstrad et qui contiennent CP/M et LOGO, le 
bouton doit être poussé du haut vers le bas. Sur les disquettes d’autres 
constructeurs, les choses sont légèrement différentes mais tout aussi 
simples. 


Vous pouvez utiliser les deux faces de vos disquettes, Pour les 
disquettes 5 pouces 1/4, cette possibilité était indiquée par 
l'inscription "Double sided”; un luxe qu'il fallait payer, Sur votre 
Amstrad, il est cependant évident que vous pouvez utiliser les deux faces 
de vos disquettes, Vous pouvez stocker 180 Koctets sur chaque face, soit 
360 Koctets ou 360 000 caractères sur une disquette, 


Pour placer une disquette dans le lecteur de disquette, il vous faut 
simplement la prendre dans la main et l'enfoncer avec précaution dans le 
lecteur de disquette, en suivant le sens de la flèche, jusqu'à ce que 
vous entendiez un claquement sourd: la disquette est alors bien en 
position dans le lecteur. Pour la retirer, appuyez sur le bouton qui se 
trouve à droite de l'ouverture prévue pour la disquette. C'est ce bouton 
qui permet “l'éjection” de la disquette, Mais n'actionnez Jamais ce 
bouton lorsque votre lecteur est en train de travailler! Ceci pourrait en 
effet se traduire par une perte définitive de données, 


Faites également attention à ce qu'aucune disquette ne se trouve dans le 


lecteur de disquette aussi bien lors de la mise sous tension que lors de 
la mise hors tension; ceci pourrait en effet également provoquer une 
perte de données du fait des pointes de tension qui se produisent alors 
sur la tête de lecture/écriture. 


Une disquette que vous venez d'acheter est encore “brute”, un peu comme 
une feuille de papier non quadrillée, Avant qu'une disquette ne puisse 
etre utilisée, il faut la formater, un peu comme on quadrille une feuille 
de papier pour qu'on puisse ensuite véritablement écrire dessus. 

Nous vous expliquons au chapitre 2 (CP/M) comment vous pouvez formater 
une disquette. 


Figure 1 
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1.2,2 LA DISQUETTE FOURNIE AVEC LE LECTEUR 


Lorsque vous achetez un DDI-1 où bien sûr également lorsque vous achetez 
un CPC 664, vous recevez une disquette système. Sur cette disquette 
figure le système d'exploitation CP/M et sur la face B également Dr. 
LOGO. Le langage LOGO est maintenant très apprécié. Il avait été 
développé pour rendre possible à des enfants de “programmer” des 
ordinateurs, Si vous voulez utiliser le LOGO, sachez qu'il existe sur ce 
langage une littérature spécialisée assez abondante. 


Dans le manuel fourni avec la disquette figurent toutes les instructions 
LOGO, expliquées parfois au moyen de petits exemples. Dr, LOGO signifie 
Digital Research Logo et il s'agit d’une version du LOGO adaptée à 
l'Amstrad CPC. On a augmenté le langage LOGO de quelques instructions de 
son de façon à ce que ces possibilités de l'Amstrad CPC puissent 
également être utilisées. D'autre part Iles touches curseur ont été 
également intégrées pour l'édition du programme. 


1.3 QUELQUES NOTIONS SUR CP/M 


1.3.1 QU'EST-CE QUE CP/M? 


Sur la face À de votre disquette se trouve le système d'exploitation 
CP/M. CP/M signifie Control Program for Microcomputers, CP/M existe sur 
les ordinateurs dotés des processeurs très répandus que sont le 8080, le 
8085 et le Z80. Qui possède un ordinateur travaillant sous CP/M peut 
accéder à une grande bibliothèque de logiciels utilisateur. CP/M présente 
l'avantage que très peu ou même aucunes modifications ne sont nécessaires 
pour faire tourner un programme existant sur un autre ordinateur, I] 
existe sous CP/M des tables de saut pour certaines routines (telles que 
la sortie sur écran, etc...) qui ont été définies une fois pour toutes. 
Ces tables de saut sont appelées par les programmes CP/M de sorte que les 
adaptations nécessaires sont ramenées au minimum. Les routines de base 
correspondantes sont chargées sur chaque ordinateur lors de la mise en 
place de CP/M. 


Vous verrez que vous n'aurez pas longtemps à attendre avant que le 
premier logiciel CP/M, comme par exemple WORDSTAR, ne devienne également 
disponible sur votre CPC. 


Un autre avantage vient de ce qu’un utilisateur qui a appris à utiliser 
CP/M peut également travailler sur n'importe quel autre ordinateur sous 
ce système d'exploitation. Qui a appris le Basic sur un ordinateur X est 
par contre encore loin de pouvoir programmer avec succès en Basic sur 
n'importe quel ordinateur Y. Contrairement à CP/M qui est très 
standardisé. Sur votre disquette figure CP/M 2.2. Vous en aurez de toute 
façon besoin pour formater ou copier des disquettes mais vous pouvez 
également l'utiliser tout autrement. Si vous voulez pour cette raison 
apprendre CP/M, le marché des ouvrages techniques vous offre un très 
large choix. 


1.3.2 CHARGEMENT ET LANCEMENT DE CP/M 


Une remarque préalable: lorsque vous travaillez avec votre lecteur de 
disquette, allumez toujours en premier le lecteur de disquette et ensuite 
seulement le moniteur et l'ordinateur, Sinon une procédure de test qui 
identifie tous les périphériques connectés enregistrera que le lecteur de 
disquette n'est pas connecté et toutes les instructions qui devraient 


normalement être envoyées au lecteur de disquette seront adressées comme 
auparavant au lecteur de cassette. 


Introduisez maintenant la disquette système dans le lecteur de disquette 
de façon à ce que son étiquette puisse être lue de l'extérieur et que la 
flèche avec l'inscription CP/M soit pointée vers le haut, Entrez 
maintenant ICPM, (Remarque: I est mis pour le trait vertical que vous 
obtenez à l'écran lorsque vous actionnez simultanément les touches SHIFT 
et .) 

Maintenant CP/M est chargé de la disquette dans l'ordinateur. 

Vous obtenez le message suivant: 


CPM 2,2 - Amstrad Consumer Electronics plc. 
A> 


Dès maintenant, toutes les instructions Basic sont inopérantes. Vous 
pouvez en faire l'expérience en entrant par exemple: 


run 


CP/M vous répond: 
RUN? 


ce qui signifie “Mais Je ne connais pas l'instruction RUN”, Vous avez 
certainement déjà remarqué qu'un “A>" se trouve dans la première colonne. 
11 s'agit de ce qu'on appelle “promptsymbol” ou symbole d'interrogation. 
On vous indique ici que l'ordinateur attend vos ordres et qu'il est 
commuté sur le lecteur A. Si vous ne possédez qu'un lecteur de disquette, 
vous obtiendrez toujours ce message; si vous possédez deux lecteurs, vous 
rencontrerez également le symbole d'interrogation B>. 

Mais essayez maintenant une instruction compréhensible pour CP/M: 


dir 


Vous obtenez instantanément sur l'écran le catalogue de la disquette. dir 
est mis ici pour le mot anglais signifiant catalogue, Directory. 


1.3.3 FORMATAGE DES DISQUETTES 


Formater signifie préparer une disquette brute pour 1e lecteur de 
disquette, Une disquette non-formatée est pour le lecteur de disquette 


comme une feuille de papier sur laquelle on a écrit à l'encre blanche. 


Pour formater une disquette, vous devez entrer sous CP/M l'instruction 
suivante: 


format 
Sur l'écran apparaît: 
Please insert disc to be formatted into drive À then press any key 


Retirez maintenant la disquette CP/M et placez dans le lecteur la 
disquette que vous voulez formater, Lors du formatage, toutes les 
informations éventuellement stockées sur une disquette sont effacées, 
c'est-à-dire que si vous formatez une disquette qui était déjà formatée 
et sur laquelle vous aviez sauvegardé des programmes ou d'autres 
informations, ces programmes seront perdus. C'est pourquoi il convient 
lors d'un formatage de se hâter avec lenteur car une fois que vous avez 
fait formater une disquette, il n'y a plus de contre-ordre possible. Une 
fois que vous avez changé la disquette, appuyez sur n'importe quelle 
touche et le formatage commencera aussitôt. Chaque face de la disquette 
est formatée avec 40 pistes qui sont disposées de façon concentrique 
autour de l'orifice de commande, de la piste O0 à la piste 39. La piste 0 
est à l'extérieur, la piste 39 à l'intérieur, Outre les pistes, {1 existe 
cependant encore d'autres subdivisions de la disquette, les SECTEURS. La 
disquette est en effet subdivisée en 9 secteurs qu’on peut comparer à des 
parts de gâteau. 

On ne peut lire la disquette que secteur par secteur. La division en 
pistes et secteurs se retrouve sur la plupart des systèmes de disquette, 
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SECTEUR 


BLOC (512 OCTETS) 
PISTE (TRACK) 





FIGURE 2 
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D'une façon générale, il faut distinguer les termes suivants: piste, 
secteur, bloc et enregistrement, 


Une PISTE est, comme nous l'avons expliqué, un qauarantième de la 
disquette. Chaque piste a 9 secteurs dont chacun comprend 512 octets, 


Il existe cependant pour CP/M encore une autre subdivision, ce qu’on 
appelle les ENREGISTREMENTS. Un enregistrement ne comprend ni plus ni 
moins de 128 octets, Chaque secteur comprend donc 4 enregistrements. 


Cette subdivision est nécessaire pour des raisons de compatibilité avec 
CP/M. 


AMSDOS connaît encore une autre, la dernière possibilité de subdivision, 
les BLOCS, Un bloc comprend 1024 octets et est donc constitué de 2 
secteurs. Un bloc est la plus petite unité pouvant être appelée en Basic. 


Mais revenons à notre véritable sujet, le formatage. 


Après que les 40 


pistes aient donc été formatées, le système vous 
demande : 


Do you want to format another disc (Y/N): 


Si vous voulez donc par exemple formater l'autre face de la disquette, 
répondez y pour “Yes=oui”; vous pouvez cependant également faire ainsi 
formater n'importe quelle autre disquette. 

Le formatage peut être répété aussi souvent que vous le voulez, jusqu'à 
ce que vous répondiez à la question par un n pour “No=non”, Le système 
vous demandera alors: 


Please insert a CP/M system disc into drive À then press any key: 

Vous pouvez maintenant actionner n'importe quelle touche, vous n'êtes pas 
en effet obligé de changer la disquette car le système a placé, lors du 
formatage, le système CP/M (mais pas les fichiers d'instructions comme 
par exemple l'instruction format) sur les deux pistes extérieures de la 
disquette. 


Lorsque vous voulez formater une disquette, celle-ci ne doit pas être 
protégée contre l'écriture. Sinon vous obtenez le message: 


Drive A:disc is write protected 
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Retry, Ignore or Cancel? 


Ce message vous indique que la protection contre l'écriture empêche le 
formatage, Il existe encore d'autres messages d'erreur semblables pour 
lesquels vous pouvez également choisir entre: 


a) Retry Lorsque vous voulez essayer encore une fois, appuyez sur 
la touche "r". 
b) Ignore Si vous voulez ignorer le message d'erreur du lecteur de 


disquette, celui-ci poursuivra son travail, Actionnez à 
cet effet la touche “i”, Ceci est cependant rarement 
conseillé car des effets inattendus peuvent alors se 
produire lors des instructions suivantes. 

c) Cancel En actionnant la touche “c” vous interrompez la procédure 
de travail en cours, C'est aussi ce que vous devriez faire 
dans notre exemple, de sorte à d'abord, s’il y a lieu, 
retirer la protection contre l'écriture. 

1.3.4 COPIE SOUS CP/M 

Il est très facile de copier sous CP/M le contenu d'une disquette entière 

sur une autre disquette. Si vous ne disposez que d'un lecteur, entrez 

l'instruction: 

disccopy 


Si vous disposez de deux lecteurs, vous pouvez utiliser l'instruction 
copydisc qui travaille plus vite, 


Après que vous ayez entré disccopy, l'ordinateur vous demande: 


Please insert source disc into drive À 
then press any key 


Si vous obtenez toutefois sur l'écran le message: 
DISCCOPY? 


cela signifie que ce n'est pas la disquette CP/M qui se trouve dans le 
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lecteur de disquette, 


Retirez maintenant la disquette CP/M du lecteur. Si vous voulez cependant 
copier la disquette CP/M elle-même, ce que vous devriez absolument faire 
au moins une fois, laissez la disquette CP/M dans le lecteur. Actionnez 
maintenant une touche quelconque. 


Copying started 
Reading track 0 to 7 


L'ordinateur lit maintenant les 8 premières pistes (-tracks) et les 
charge dans l'ordinateur, Lorsque cela est terminé, vous obtenez le 
message: 


Please insert destination disc into drive À 
then press any key 


Retirez maintenant la disquette source du lecteur de disquette et 
introduisez la disquette sur laquelle doivent être copiés les fichiers, 
Si votre disquette objet n'est pas encore ou si elle est incorrectement 
formatée, celle-ci sera d'abord formatée, D'autre part, toutes les 
données figurant sur la disquette seront effacées car c'est une copie 
intégrale de la disquette source qui est effectuée. On ne peut plus 
distinguer en théorie et en pratique la copie de l'original. 


Après avoir placé la disquette objet dans le lecteur et après avoir 
actionné une touche quelconque, vous obtenez le message: 


Writing track O0 to 7 

Répétez la même procédure de travail pour les pistes (tracks) 8 à 15, 16 
à 23, 24 à 31 et 32 à 39, La copie de la disquette est alors terminée et 
vous obtenez le message: 

Do you want to copy another disc (Y/N): 

Si vous ne voulez pas copier d'autre disquette, entrez N et suivez les 


instructions qui vous sont données à l'écran, Pour effectuer une autre 
copie, la procédure est exactement la même. 
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HARDCOPY D'UNE PROCEDURE DE COPIE 


DISCCOPY 


DISCCOPY V2.0 


PLEASE INSERT SOURCE DISC INTO DRIVE A THEN PRESS ANY KEY. 
COPYING STARTED 
READING TRACK 
READING TRACK 
READING TRACK 
READING TRACK 
READING TRACK 
READING TRACK 
READING TRACK 
READING TRACK 7 

PLEASE INSERT DESTINATION DISC INTO DRIVE A THEN PRESS ANY KEY... 
FORMATTING MHILST COPYING 

NRITING TRACK © 

WRITING TRACK 
NRITING TRACK 
WRITING TRACK 
NRITING TRACK 
WRITING TRACK 
NRITING TRACK 
MRITING TRACK 7 

PLEASE INSERT SOURCE DISC INTO DRIVE A THEN PRESS ANY KEY 
READING TRACK 8 

READING TRACK 9 

READING TRACK 10 

READING TRACK 11 

READING TRACK 12 

READING TRACK 19 

READING TRACK 14 

READING TRACK 15 

PLEASE INSERT DESTINATION DISC INTO DRIVE A THEN PRESS ANY KEY: 


nu sv NN = © 


nu 2 vu nn — 


ETC... 
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1,3,5 COPIE AVEC DEUX LECTEURS DE DISQUETTE 


Vous ne pouvez utiliser l'instruction COPYDISC que si vous avez deux 
lecteurs de disquette. La procédure est semblable à celle de 
l'instruction DISCCOPY que nous venons de décrire. L'avantage de cette 
instruction, comme nous l'avons déjà indiqué, est cependant que vous 
n'avez plus à échanger sans arrêt les disquettes source et objet. 


Avec l'instruction COPYDISC également, la disquette objet est 
automatiquement formatée si nécessaire. Pour je reste vous avez 
simplement à suivre les instructions qui vous sont données à l'écran. 


1.3.6 DISCCHK - VERIFICATION DES DISQUETTES 


Après avoir réalisé une copie, vous pouvez également vérifier si tout a 
bien été copié correctement; il serait en effet rageant que votre 
disquette originale se détériore et que vous constatiez ensuite que la 
copie est également en mauvais état (ce qui peut se produire de temps en 
temps), Pour vérifier les disquettes source et objet, entrez 
l'instruction: 


discchk 


Suivez alors les instructions sur l'écran qui vous demandent de placer 
dans le lecteur la disquette originale ou la disquette de copie. Si des 
différences sont constatées entre la disquette originale et la disquette 
objet, vous obtenez le message: 


Failed to verify destination disc correctly: 
track x sector y 


La comparaison des deux disquettes se poursuit malgré tout, de sorte que 
d'autres divergences éventuelles peuvent être affichées de la même façon. 
Ce sont toujours 8 pistes qui sont comparées consécutivement. Si vous 
avez deux lecteurs de disquette la comparaison s'effectuera nettement 
plus vite et plus simplement, Utilisez dans ce cas l'instruction: 


chkdisc 


Vous n'avez plus alors qu'à disposer les disquettes source et objet en 
vous conformant aux instructions qui vous sont données à l'écran et les 
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deux disquettes seront comparées exactement comme avec l'instruction 
discchk. 

Vous pouvez par ailleurs interrompre l'exécution de toutes les 
instructions CP/M en tenant simultanément enfoncées les touches [CTRL] et 
"C", Si vous avez par exemple entré par erreur l'instruction format, vous 
pouvez revenir avec [CTRL]-C à la procédure d'entrée de CP/M, 


Voici maintenant une liste des autres fonctions de contrôle: 


CCTRL]C =Interruption de l'instruction actuelle 

[CTRLIS =sArrête la sortie sur écran, En appuyant sur n'importe 
quelle touche, vous pouvez faire se poursuivre la sortie 
sur écran. 

[CTRLJP =Commutation sur la sortie sur imprimante, c'est-à-dire 
que la sortie sur écran est envoyée sur l'imprimante. 

CCTRL]Z =Fin du texte. Est utilisé par exemple lors des entrées de 
texte. 


13,7 FORMATS DE FORMATAGE SPECIAUX 


Lorsque vous voulez par exemple formater une disquette ne devant 
comporter que des données ou lorsque vous voulez utiliser une disquette 
exclusivement pour y stocker des programmes Basic, vous n'êtes pas obligé 
de copier également le système d'exploitation CP/M. CP/M est placé sur 
les pistes O0 et 1. Mais sur une disquette de données, vous n'avez pas 
besoin de CP/M, de sorte que vous gaspilleriez ainsi l'emplacement occupé 
par ces deux pistes. Pour éviter ce gaspillage, on peut utiliser une 
instruction spéciale: 


format d 


Lorsque vous utilisez cette instruction au lieu de format, la disquette 
est formatée sans recevoir le système d'exploitation CP/M. Vous avez 
ainsi plus de place à votre disposition pour des données ou des 
programmes. Voici les différentes possibilités de formatage: 


format formatage avec copie de CP/M 

format d formatage en format de données, sans CP/M 
format ji formatage en format IBM 

format V formatage en format Vendor 
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C'est toujours la disquette se trouvant dans le lecteur de disquette 
standard (A) qui est formatée, Il n'est malheureusement pas possible de 
formater une disquette qui se trouve dans un autre lecteur. 


Le format le plus usuel pour vous est le premier si vous travaillez sous 
CP/M ou le second si vous ne travaillez pratiquement qu’en Basic sous 
AMSDOS, On formate ici 9 secteurs par piste. Dans le format système, les 
secteurs sont numérotés de #41 à #49 (hexadécimal). Les pistes réservées 
sont occupées comme suit: 


Piste 0, secteur #41 :secteur boot 

Piste 0, secteur #42 ‘secteur de configuration 
Piste 0, secteur #43-#47 :inutilisé 

Piste O0, secteur #48,#49 : COMME : 

Piste 1, secteur #41-#49 :CCP et BDOS 


CCP = Console Command Processor 
BDOS = Basic Disk Operating System 


Le format Vendor est identique au format système, sauf que le système 
d'exploitation ÆCP/M n'est pas copié. Ce format est utilisé dans 
l'industrie des logiciels car on ne peut pas vendre CP/M avec les 
logiciels. 


Le format DATA-ONLY 


Le formatage est le même que pour le format système, 40 pistes de 9 
secteurs chacune sont formatées, Les secteurs sont numérotés de #C1 à 
#C9, CP/M n'est pas copié, de sorte que les deux pistes supérieures, la 
piste O0 et la piste 1 sont disponibles pour l'utilisateur. Vous avez 
ainsi 2*9*512-9216 octets de plus à votre disposition. 


Le format IBM 
Le formatage se fait avec 8 secteurs par piste (#1-#8), Une piste est 
réservée. Ce format est évidemment le même que le format de disquette 


utilisé sur l'IBM PC sous CP/M, 


Ce format ne doit être utilisé que pour une utilisation spécifique, il 
n'est pas sinon à recommander, 
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1.3.8 INSTRUCTIONS TRANSITOIRES ET RESIDENTES 


Sous CP/M 11 faut distinguer entre ce qu'on appelle les instructions 
transitoires et les instructions résidentes., Les instructions résidentes 
sont automatiquement disponibles après le boot (c’est-à-dire le 
chargement général du système) de CP/M. Elles résident alors formellement 
dans la mémoire comme autrefois les rois dans leurs châteaux. 


I1 s’agit des instructions suivantes: 
SAVE, A:,B:,DIR,ERA,REN, USER et TYPE. 


Mais la plus grande partie, de très loin, des instructions appartiennent 
au groupe des instructions transitoires. Les instructions transitoires 
doivent être d'abord chargées à partir de la disquette, avant que 
l'ordinateur ne puisse les exécuter. Il s’agit des instructions: 


AMSDOS, BOOTGEN, CHKDISC, CLOAD, COPYDISC, CSAVE, DISCCHK, DISCCOPY, 
FILECOPY, FORMAT, SETUP et SYSGEN. 


Ces instructions tournent exclusivement sur l’Amstrad CPC, d'autres 
fournisseurs utilisent cependant des programmes utilitaires semblables 
sous des noms semblables ou identiques. Voici d’autres instructions CP/M 
transitoires standardisées: 


ED, MOVCPM, PIP et STAT. 

Vous trouvez ces fichiers sur votre disquette système CP/M. Les noms de 
fichiers sont marqués par un .CO0M, Vous pouvez par exemple trouver sur 
votre disquette le fichier FILECOPY.COM (en utilisant l'instruction DIR). 
Les instructions transitoires ne sont pas disponibles si elles n'ont pas 
été copiées avec DISCCOPY, COPYDISC, FILECOPY ou PIP, 


Pour avoir une réplique exacte de votre disquette CP/M, vous devez la 
copier soit avec: 


DISCCOPY (pour les ordinateurs avec un seul lecteur) ou avec COPYDISC 
(pour les possesseurs de deux lecteurs de disquette). 


Vous pouvez également copier tous les fichiers transitoires avec: 


FORMAT et ensuite avec FILECOPY *,* 
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Une autre possibilité est de ne copier que les fichiers transitoires que 
vous utilisez le plus souvent, C'est ainsi que vous pouvez par exemple 
négliger les instructions PIP, COPYDISC et CHKDISC lorsque vous n'avez 
qu'un seul lecteur. Il vous restera ainsi plus de place sur votre 
disquette. 


1,3,9 COPIE DE FICHIERS AVEC FILECOPY 
Pour copier différents fichiers, utilisez l'instruction: 
filecopy 


Si vous avez toutefois deux lecteurs de disquette, vous pouvez également 
utiliser l'instruction CP/M PIP. 
Si vous voulez copier tous les fichiers d'une disquette, entrez: 


filecopy *.* 


Un nom de fichier est constitué de deux parties séparées entre elles par 
un point “.”, La première partie est le nom de fichier proprement dit et 
la seconde partie est le type de fichier. La première partie peut 
comporter jusqu'à 8 caractères, la seconde jusqu'à 3 caractères, Cette 
règle ne vaut pas seulement, sur votre lecteur DDI-1, sous CP/M, mais 
également sous AMSDOS, Il existe par exemple les types de fichier 
suivants: 


Type indéfini. 11 pourrait s'agir par exemple d'un fichier créé en 
Basic qui a été ouvert sans type de fichier au moyen de 
l'instruction OPENOUT, 


.BAS Il s'agit ici d'un programme Basic qui a été sauvegardé avec 
l'instruction Basic SAVE"programme” ou SAVE"programme”,P ou 
SAVE"”programme.bas”,a, 


.BIN Sauvegarde d’une zone de mémoire ou d’un programme machine, 


.BAK Il s’agit ici de ce qu'on appelle un Backup, une copie de 
sécurité. Lorsque vous sauvegardez par exemple un programme sous 
AMSDOS et que vous utilisez un nom sous lequel un programme a déjà 
été sauvegardé, AMSDOS crée alors automatiquement un fichier 
Backup. Cela se produit pour des raisons de sécurité, pour que 
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vous n'effaciez par un fichier par mégarde. Mais si vous 
sauvegardez encore une autre fois un programme sous le même nom, 
l'ancien fichier Backup est effacé, le dernier fichier devient le 
fichier Backup et votre nouveau programme est sauvegardé sous le 
nom “Nom.Bas”. 


«COM Il s'agit ici de fichiers d'instruction dans lesquels sont 
sauvegardées des instructions. C'est ainsi que tous les programmes 
utilitaires de CP/M sont de ce type de fichier. 


.DAT Il s'agit d'un fichier qui a été par exemple créé sous AMSDOS par 
un programme de gestion de fichier (comme dans le présent 
ouvrage). 


.SEQ Le fichier est de type “séquentiel". Le lecteur de disquette DDI-1 
dispose uniquement de ce type de fichier, tous les fichiers sont 
sauvegardés de façon séquentielle. 


11 n'y a au fond que deux modes de sauvegarde sur lesquels sont fondés 
tous les autres modes. Ce sont a) la sauvegarde séquentielle et b) la 
sauvegarde relative de données, Le DDI-1 ne dispose de façon standard que 
du mode le plus simple, la sauvegarde séquentielle de données. Nous vous 
permettrons cependant dans le présent ouvrage de réaliser aussi des 
fichiers relatifs sur votre DDI-1 (voir Chapitre 5). 


Par ailleurs, toute autre désignation de type de fichier est imaginable 
car ici n'importe quelle combinaison de trois lettres est autorisée. Les 
types de fichiers que nous vous avons présentés ici sont toutefois les 
plus usités. 


1.3.10 LES WILD CARDS 


Les étoiles utilisées dans l'instruction filecopy *.* sont ce qu’on 
appelle des wild cards (=cartes sauvages ou Jokers). Ces jokers peuvent 
souvent vous faciliter la vie. Mais que sont donc les jokers? Il y a deux 
formes de jJokers, les étoiles et le point d'interrogation, Si vous copiez 
un fichier avec l'instruction FILECOPY MATHS,BAS, le programme FILECOPY 
charge le fichier MATHS.BAS en mémoire et l'écrit ensuite sur la 
disquette objet sous exactement le même nom. Vous avez ainsi spécifié de 
façon très précise quel fichier devait être copié. Il y a cependant 
Souvent des cas où vous voulez copier (ou appeler) plusieurs fichiers 
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différents portant des noms semblables. Supposons par exemple que vous 
vouliez copier exclusivement tous les programmes Basic, donc tous les 
programmes dont le nom se termine par un .BAS. Il vous faudrait pour cela 
examiner le catalogue, noter tous les fichiers dont le nom se termine par 
un .BAS puis copier ces fichiers les uns après les autres avec 
l'instruction filecopy Nom.BAS, C'est certainement assez pénible. Pour 
éviter cela, il y a heureusement les Jokers que vous ne trouvez 
d'ailleurs pas uniquement sous CP/M, 


Dans notre exemple, vous n'auriez plus à entrer que l'instruction 
suivante: 


filecopy *,BAS 


et tous les programmes Basic seraient copiés., L'étoile signifie "quelle 
que soit la première partie du nom de fichier, s'il s'agit d’un programme 
Basic, alors copie-le”, 

Seront donc ainsi copiés tous les programmes Basic. 


Il est aussi possible de ne placer l'étoile qu'après un ou plusieurs 
caractères, Par exemple: 


filecopy F*,* 


signifie copie tous les fichiers qui commencent par un “f”, quel que soit 
leur type de fichier, Les fichiers: 


"faineant bas” 

"femme.seq"” 

seraient ainsi copiés. Il existe cependant un autre Joker, le point 
d'interrogation, Un point d'interrogation remplace, en n'importe quelle 
position, une lettre. 

On aurait donc pu également écrire au lieu de filecopy f*.*, filecopy 
f?22?????,9?? Ou filecopy f*.??? mais aussi filecopy f??7?7?7???.*, Si vous 
avez par exemple sauvegardé un agenda sur disquette, vous pourriez avec 


l'instruction: 


filecopy 05-77?,%* 
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faire copier tous les rendez-vous du mois de mai pour les années 
précédentes, à condition bien entendu que le format du nom de fichier 
corresponde à ce modèle, 

filecopy 171 copierait tous les fichiers qui ont un 1 en première et en 
troisième positions, alors que tous les caractères autorisés seraient 
imaginables pour l'emplacement du milieu. 


Lorsque vous utilisez l'instruction filecopy *.*, on vous demande si vous 
voulez copier tous les fichiers ou si vous voulez effectuer une 
sélection, On vous montre les noms de fichier les uns après les autres et 
vous pouvez décider chaque fois (avec y pour oui et n pour non) si le 
fichier doit être copié. 


1.3,11 L'INSTRUCTION DIR 


Avec l'instruction DIR vous pouvez faire éditer le catalogue de la 
disquette. Vous pouvez d'autre part effectuer une sélection, c'est-à-dire 
que vous pouvez exclure certains fichiers. Ceci est obtenu grâce à 
l'utilisation des jokers. Si vous négligez les paramètres, on suppose que 
vous avez entré *,*, L’instruction DIR a les effets suivants: 


DIR ‘affiche tous les fichiers 
DIR B: ‘affiche tous les fichiers du lecteur B: 
DIR *,BAS ‘affiche uniquement les fichiers BASic 


DIR FILECOPY.COM ‘affiche uniquement le fichier FILECOPY.COM pour 
autant qu'il soit présent sur la disquette 


Les fichiers sont affichés dans l'ordre dans lequel ils ont été créés, 
c'est-à-dire que le premier fichier que l'on a sauvegardé sur la 
disquette sera exactement le premier présenté dans le catalogue. 


1,3,12 L'INSTRUCTION ERA 


Avec l'instruction ERA (pour ERâse), vous pouvez supprimer des fichiers 
sur la disquette, Ce ne sont toutefois que les entrées correspondant à 
ces fichiers sur la disquette qui sont supprimées, les données elles- 
mêmes ne sont pas détruites mais il n'est plus possible d'y accéder. Si 
vous indiquez *.*, l'instruction doit être confirmée car toutes les 
entrées de la disquette seraient ainsi supprimées. Si un fichier à 
supprimer ainsi ne peut qu'être lu (voir aussi 1,3,16), l'exécution de 
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l'instruction sera interrompue, 

Instructions possibles: 

ERA DISCCOPY.COM :Supprime le fichier DISCCOPY.COM 

ERA *,SEQ :Supprime tous les fichiers marqués .SEQ 

1,3,13 L'INSTRUCTION REN 

L'instructton REN (pour REName) permet de changer le nom de fichiers. 

REN nouveau nom=ancien nom 

Si le nouveau nom existe déjà ou si l’ancien nom n'existe pas, un message 
d'erreur est sorti. 

1,3,14 L'INSTRUCTION TYPE 

L'instruction TYPE permet de faire éditer le contenu de fichiers sur 
l'écran, S’il ne s'agit pas de fichiers ASCII, comme par exemple pour les 
programmes Basic, des symboles graphiques ou autres peuvent apparaître 
sur l'écran. Il se peut également par exemple que la couleur du fond ou 


que le mode d'affichage soient modifiés. 


TYPE EX1.BAS :Affichage du programme d'exemple EX1 


1,3,15 COMMUTATION DU LECTEUR DE DISQUETTE STANDARD 


Les instructions A: et B: vous permettent, si vous possédez deux lecteurs 
de disquette, de commuter d'un lecteur de disquette à l'autre. 


B: le lecteur de disquette B: est le lecteur standard 


Le symbole d'interrogation est également modifié pour devenir B> par 
exemple. 
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1.3,16 L'INSTRUCTION PIP 


L'instruction PIP vous permet d'effectuer un transfert entre l'ordinateur 
et la périphérie, à moins que vous n'utilisiez cette instruction pour 
effectuer une copie si vous possédez deux lecteurs de disquette. 

La syntaxe est: 


PIP<objet>=<source>, 


La <source> et l'’<objet> peuvent être des fichiers ou des périphériques. 
Vous pouvez appeler les périphériques suivants: 


Comme source: 


CON: Console = clavier 
RDR: Interface sérielle 


Comme objet: 

CON: Console = écran 

PUN: Interface sérielle 

LST: Imprimante 

Exemple: 

Vous voulez créer un fichier que vous voulez entrer à partir du clavier: 
PIP Text.Txt=CON: 

Tout ce que vous entrez sera alors sauvegardé sur le fichier Text.Txt, 
jusqu'à ce que vous appuyiez sur la touche [CTRL]J-Z, Le fichier sera 
alors fermé. 

Vous ne pouvez pas utiliser l'instruction PIP pour copier des fichiers 
avec un seul lecteur de disquette. Utilisez dans ce cas l'instruction 
FILECOPY. 


Autres exemples: 


PIP LST:=EX2,BAS Sort le fichier Basic EX2.BAS sur imprimante 
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PIP CON:=EX2.BAS Sort le fichier Basic EX2.BAS sur écran. Cette 
instruction est semblable à l'instruction TYPE 
EX2,BAS 


1,3,17 L'INSTRUCTION STAT 


STAT est mis pour STATus (statut). L'instruction STAT vous permet d'une 
part de réaliser une sortie pratique des informations sur vos fichiers, 
de façon semblable à l'instruction DIR. 


STAT 
STAT B: 
STAT *,BAS 


sont des exemples possibles, D'autre part cette instruction vous offre 
une option très importante et très pratique. Vous pouvez rendre par 
exemple un fichier “uniquement lisible”, c’est-à-dire que vous ne pourrez 
plus effacer ce fichier par mégarde. Avec l'instruction: 


STAT *,.BAS$R/0 


tous les fichiers Basic seront dotés du statut Read-0Oniy. Tout effaçage 
par mégarde de ces fichiers est dès lors exclu. 


Pour supprimer ce statut, il vous faut ajouter les caractères pour le 
statut de lecture/écriture ($R/W) à l'instruction de base: 


STAT *,.BASSR/H 


Vous pouvez également doter un fichier du statut système. Ce fichier ne 
sera plus alors listé par l'instruction DIR, il deviendra en fait 
invisible. Ce fichier ne pourra d'autre part plus être copié. Il ne sera 
plus listé que par l'instruction STAT. Si vous entrez par exemple: 


STAT *, COMSSYS 


tous les fichiers COM seront dotés du statut système, vous ne pourrez 
donc plus lister ces fichiers avec l'instruction DIR et vous ne pourrez 
plus les copier. Toutefois ces instructions peuvent continuer d'être 
appelées. 
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L'inverse de cette instruction est: 

STAT *,COMSDIR 

Cette instruction fixe le “statut catalogue”. 
Voici des instructions STAT impressionnantes: 


STAT dsk: Toutes les informations importantes sur le format de la 
disquette vous sont fournies. 


STAT val: Vous fournit une liste des abréviations et vous indique 
quelle est leur affectation actuelle, Par exemple CON:=TTY 
etc... 


ou STAT dev: et STAT usr:, 


1.3.18 BOOTGEN 


BOOTGEN permet de copier les deux pistes 0 et 1 sur une autre disquette. 
Vous pouvez utiliser cette instruction lorsque vous voulez doter de CP/M 
une disquette formatée en format Vendor ou lorsque vous voulez copier un 
nouveau secteur de configuration sur plusieurs disquettes, 


1.3.19 MOVCPM et SYSGEN 


L'instruction MOVCPM vous permet de décaler CP/M dans une autre zone de 
la mémoire. Ceci est souvent nécessaire lorsque CP/M et un logiciel 
quelconque se chevauchent. Vous pouvez décaler CP/M par pas de 256 
octets. La syntaxe est: 


MOVCPM<grandeur>* 

La grandeur a des valeurs comprises entre 64 et 179, Le CP/M standard a 
été produit avec la grandeur 179, MOVCPM décale par exemple CP/M de 256 
octets vers le bas. 

Vous pouvez ensuite sauvegarder le CP/M nouvellement produit avec 


l'instruction SYSGEN où le sauvegarder dans un fichier. Cette possibilité 
vous est également donnée sous MOVCPM. 
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SYSGEN écrit le résultat d'une instruction MOVCPM sur la piste système. 
Il y cependant encore trois instructions différentes à cet effet: 


SYSGEN* 


Cette instruction écrit le CP/M créé immédiatement auparavant par une 
instruction MOVCPM sur les pistes système. 


SYSGEN<nom de fichier> 


Cette instruction lit le fichier créé par MOVCPM sous le nom <nom de 
fichier> et le copie sur les pistes système, Exemple: SYSGEN CPMEXTRA,.COM 


SYSGEN 


À défaut de paramètres, on vous demande quelles sont les disquettes 
source et objet et CP/M sera copié en fonction de cela sur la disquette 
objet. Cette instruction vous permet de copier CP/M sur une disquette 
VENDOR. 


1,3.20 SETUP 


Cette instruction vous permet de modifier de façon décisive l'allure et 
le fonctionnement de CP/M, Cette instruction vous permet d'intervenir 
dans l'affectation des touches, dans l'accès à la disquette et dans 
beaucoup d'autres choses, Vous ne devriez cependant utiliser cette 
instruction qu'après vous être informé de façon suffisamment précise sur 
les effets qu'elle peut avoir, Les chapitres 3,7,3,2 et 1.5 du manuel de 
l'utilisateur du lecteur de disquette DDI-1 fournissent notamment les 
informations nécessaires à cet égard. 


1.3,21 AMSDOS 
L'instruction AMSDOS déconnecte CP/M et vous ramène à AMSDOS. Vous pouvez 


alors programmer en Basic comme à l'habitude, Vous disposez des 
instructions AMSDOS. 
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1.4 LE TRAVAIL SOUS AMSDOS 


1.4.1 QU'EST-CE QU’ AMSDOS? 


AMSDOS signifie "AMStrad Disc Operating System”. AMSDOS soutient le 
travail avec la disquette en Basic. Respectez absolument le bon ordre 
pour la mise sous tension! C'est d'abord le lecteur de disquette qui doit 
etre mis sous tension et ce n'est qu'ensuite que vous pouvez allumer le 
moniteur et l'ordinateur. La raison en est que lors de la mise sous 
tension de l'ordinateur un test est automatiquement effectué pour savoir 
quels éléments de la périphérie (imprimante, lecteur de disquette, 
etc...) sont allumés, Si donc le lecteur de disquette est encore hors 
tension lorsque vous allumez l'ordinateur, les instructions qui devraient 
etre envoyées plus tard au lecteur de disquette seront malgré tout 
envoyées au lecteur de cassette. 


Toutes les instructions ci-dessous, qui sont normalement envoyées au 
lecteur de cassette, sont envoyées au lecteur de disquette si vous ne 
donnez pas d'instruction contraire: 


load"nom de fichier” 
run”nom de fichier” 
chain”nom de fichier” 
merge”nom de fichier” 
chain merge”nom de fichier” 
save”nom de fichier” 
openin“nom de fichier” 
closein 

openout”nom de fichier” 
closeout 

cat 

eof 

input#9 

line input#9 

print#9 

write#9 

list#9 


L'’instruction speed write se rapporte cependant toujours au lecteur de 


cassette car sur le lecteur de disquette, les vitesses de lecture et 
d'écriture (voir chapitre 1) ne sont pas variables. 
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Il existe en outre encore, EN PLUS, les instructions suivantes, appelées 
instructions externes, Il s'agit ici d'instructions externes car ces 
instructions sont stockées dans 1a ROM de 1'AMSDOS, c'est-à-dire dans le 
lecteur de disquette, Ces instructions ne peuvent absolument pas être 
utilisées en Basic cassette car elles ne deviennent disponibles qu'après 
la mise sous tension du lecteur de disquette. Ces instructions commencent 
par un I (SHIFT et ); ce caractère introduit toutes les instructions 
dites instructions RSX, c'est-à-dire les instructions d'extension du 
Basic. Les instructions disquette ne sont toutefois pas des instructions 
RSX à proprement parler mais constituent une exception. 


Ia 

Ib 

Idir 
Idisc 
Idisc.in 
Idisc.out 
Idrive 
lera 

Iren 
Itape 
Itape.in 
Itape.out 
luser 


Ces instructions seront expliquées encore une fois par des exemples 
spécifiques. 

1.4.2 LOAD ET RUN 

Lorsque vous voulez charger un programme à partir de la disquette, que ce 
soit pour le lancer ou pour programmer, vous devez utiliser 
l'instruction: 

LOAD"nom de fichier” 

Cette instruction vous permet de charger des programmes Basic. Lorsque 
vous n'indiquez pas le type de fichier, AMSDOS suppose “. ", c'est-à- 


dire qu'aucun caractère ne figure dans le type de fichier, 


AMSDOS essaie d'abord de charger le fichier “nom de fichier. ", Si ce 
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fichier n'existe pas, il essaie de charger le fichier “nom du 
fichier.BAS", Si ce fichier n'existe pas non plus, il essaie enfin de 
charger le fichier “nom de fichier.BIN". Ce n'est que si ce fichier n'a 
pas non plus été trouvé qu’un “File not found” est sorti, Vous pouvez 
cependant entrer aussi: 


LOAD"nom de fichier,.BAS" 


pour empêcher qu'AMSDOS ne charge un éventuel fichier qui existerait sous 
le nom de “nom de fichier. He 


Il est bien sûr possible de charger des programmes à partir du lecteur de 
disquette B:, I1 vous suffit pour cela d'indiquer le lecteur de disquette 
dans l'instruction LOAD: 


LOAD"B:nom de fichier” 


Si aucune disquette ne se trouve dans le lecteur ou si elle n’y pas été 
placée correctement, le message d'erreur suivant apparaît: 


Drive A:disc missing 
Retry, Ignore or Cancel? 


Placez alors la disquette correctement dans le lecteur et actionnez la 
touche “r” pour “Retry”, c'est-à-dire réessayer. 


Notez qu’il n’est pas nécessaire d'indiquer le type de fichier. AMSDOS 
ajoute automatiquement au nom de fichier le suffixe “.BAS" lors du 
chargement et de la sauvegarde des programmes Basic. Si vous avez 
toutefois sauvegardé un programme sous un autre nom avec une autre 
désignation que "BAS", vous pouvez également charger ce fichier avec 
l'instruction: 


LOAD"nom de fichier ,xxx" 


Vous pouvez remplacer ici xxx par la marque de type de fichier 
correspondante. 


Si toutefois le fichier ‘nom de fichier” n'existe pas (par exemple parce 


que vous avez mal entré le nom de fichier), vous obtenez le message 
d'erreur: 
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Nom de fichier. not found. 


Vérifiez alors votre nom de fichier et essayez encore une fois si 
nécessaire. 


Si vous obtenez le message d'erreur Type mismatch, cela signifie que vous 
avez oublié d'entrer les guillemets au début du nom de fichier. 


Le message d'erreur: 


Drive A:read fail 
Retry, Ignore or Cancel 


indique qu'une erreur de lecture s'est produite sur la disquette. C'est 
probablement que votre disquette est défectueuse (ou que vous n'avez pas 
placé la bonne disquette dans le lecteur), Il se peut également que votre 
disquette n'ait pas été formatée correctement dans le format Amstrad. 


Le message: 

Press PLAY then any key: 

signifie que la connexion entre l'ordinateur et l'interface où entre 
l'ordinateur et le lecteur de disquette n'est pas bonne. Il se peut 
également que vous n'ayez pas allumé le lecteur de disquette en premier, 
Une autre possibilité est que vous ayez utilisé l'instruction Itape.in, 
entrez alors: 


Idisc 


et essayez à nouveau. Si vous obtenez le même message d'erreur, éteignez 
votre ordinateur et allumez-le à nouveau. 


Comme en Basic cassette, il est possible de faire démarrer les programmes 
automatiquement après leur chargement, On utilise également à cet effet 
l'instruction: 

RUN”nom de fichier“ 

Il n'y a cependant plus comme en Basic cassette la possibilité d'utiliser 


l'instruction RUN” car vous devez définir précisément le nom du fichier à 
charger. Les mêmes messages d'erreur expliqués pour LOAD, avec les mêmes 
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conséquences, valent pour l'instruction RUN"nom de fichier”. 


Vous remarquerez notamment lors du chargement des programmes Basic 
combien votre lecteur de disquette est rapide par rapport au lecteur de 
cassette. 


Vous pouvez tout aussi naturellement utiliser également les autres 
instructions Basic de chargement, Pour l'utilisation des instructions: 


CHAIN"nom de fichier”, MERGE"nom de fichier” et CHAIN MERGE"nom de 
fichier" 


nous vous invitons à vous reporter au manuel d'utilisation. 


Une très utile possibilité est constituée par le fait que vous pouvez 
sous AMSDOS, comme sous CP/M, définir des Users, Si vous avez déjà 
examiné un catalogue, vous avez certainement constaté que la première 
ligne est: 


Drive A:user 0 


Vous pouvez définir des numéros user de 0 à 15, le numéro user standard 
est 0. Par l'intermédiaire des numéros user, vous pouvez appeler 
différents catalogues, c'est-à-dire que vous pouvez par exemple placer 
sous user O uniquement les instructions CP/M et sous user 1 vos 
programmes Basic et les données, Si vous voulez charger un programme de 
user 1, vous avez deux possibilités pour le faire. La première consiste à 
définir le user avec l'instruction IUSER: 


IUSER, 1 


vous permet de le faire, Vous pouvez alors charger le programme avec 
LOAD"'nom de fichier”. Après chargement du programme, vous vous trouvez 
encore dans user 1, Jusqu'à ce que vous le redéfinissiez. La seconde 
possibilité consiste à indiquer le user dans le nom de fichier: 


LOAD"1:nom de fichier” 


chargera un programme du user 1, quel que soit votre statut user actuel. 
Vous devez donc indiquer le numéro user, suivi d'un double-point puis du 
nom de fichier, de même que pour le choix du lecteur de disquette. Si 
vous voulez sélectionner simultanément le lecteur de disquette et le 
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numéro user, il vous faut indiquer d'abord le numéro user, ensuite le 
lecteur de disquette et placer enfin le double-point. Exemple: 


LOAD"8B:Nim” 


chargera le Jeu “Nim” à partir du lecteur B, user étant 8, La syntaxe est 
donc: 


LOAD”<NoUser><Drive>:Nom de fichier” 


<NoUser> est un numéro user quelconque entre O0 et 15, <Drive> est mis 
pour le nom du lecteur de disquette sélectionné, donc soit À, soit B. 


1.4,3 LES INSTRUCTIONS FICHIER 


Pour traiter des fichiers avec le lecteur de cassette, on a besoin des 
instructions: 


OPENOUT "nom de fichier” 
OPENIN”nom de fichier” 
CLOSEOUT 

CLOSEIN 

INPUT#9 

LINE INPUT#9 

PRINT #9 

WRITE #9 


Le programme suivant écrit les 100 premiers nombres sur un fichier sur 
cassette: 


10 REM ==========2222222222esssesezeseeseses 
20 REM Programme exemple de fichiers données 
30 REM SRSSSSS=S=2SSLSSESSSSSESSEESESSSSESEEESS= 
40: 

50 OPENOUT “nombres” 

60 FOR I=1 TO 100 

70 PRINT#9, I 

80 NEXT I 

90 CLOSEOUT 

100: 

110 REM SZSSSZS====SSSSS==SSEESSSSSSEZ====S===== 
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120 REM Maintenant lire 

130 REM =======222222ssssszesssssesesesssesse 
140: 

150 MODE 1:PEN 1 

160 PRINT"Rembobinez la bande” 

170 PRINT"et frappez une touche” 

180 D$=INKEYS:REM *** Vide le buffer *** 
190 IF INKEY$="” THEN 190 

200: 

210 OPENIN"nombres” 

220 WHILE NOT EOF 

230 INPUT V9, I 

240 PRINT EL, 

250 WEND 

260 CLOSEIN 

270 END 


Attention! Ce programme n'écrira sur la cassette que si vous n'avez pas 
connecté le lecteur de disquette à l'ordinateur, Si vous avez donc 
connecté votre lecteur de disquette à l'ordinateur, entrez encore 
l'instruction: 


ITAPE 


avant de faire exécuter le programme. Maintenant toutes les instructions 
fichiers vont à nouveau sur le lecteur de cassette. Vous pouvez ainsi 
mesurer le temps que le programme met à être exécuté, Lorsque ce sera 
terminé, entrez: 


Idisc 


et lancez à nouveau le programme, Maintenant, le fichier nombres” est 
ouvert sur le lecteur de disquette, Comme vous ne pouvez pas rembobiner 
une disquette, vous pouvez ignorer le message “Rembobinez la bande” et 
frapper directement une touche, 


Placez maintenant une disquette non protégée contre l'écriture dans le 
lecteur, de préférence une disquette que vous avez formatée pour y faire 
des expériences, Entrez ensuite RUN. 


Vous remarquerez que ce travail est exécuté beaucoup plus rapidement. En 
principe vous n'avez donc pas à changer votre façon de travailler si vous 
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voulez traiter des fichiers séquentiels sur disquette et que vous l'aviez 
déjà fait en Basic avec le lecteur de cassette. 

Vous pouvez également revenir avec l'instruction Itape au Basic cassette 
bien connu, Nous en dirons cependant plus à ce sujet au chapitre 1,4,4, 


La fonction eof, telle qu'elle se présente dans la ligne 220 de notre 
programme d'exemple signifie End Of File, soit fin du fichier. Cette 
fonction est fausse (=0) si d'autres caractères peuvent encore être lus à 
partir du fichier ouvert en lecture. EOF devient vrai (=-1) si le dernier 
caractère du fichier a été I1u et qu’il n’est donc plus possible de 
retirer d'autres caractères de ce fichier. Cette instruction est très 
importante lorsqu'on lit des fichiers séquentiels et que le nombre de 
caractères à lire n'est pas connu d'avance. EOF vous fournit ainsi une 
possibilité de travailler de façon très souple avec les fichiers 
séquentiels, 


Nous nous occupons ici exclusivement des instructions disquette! Les 
effets sur le travail avec le lecteur de cassette sont comparables mais 
ils n'ont pas à être décrits en détail dans un ouvrage consacré au 
lecteur de disquette. 


Entrez maintenant l'instruction: 
cat 


Vous obtenez le catalogue de la disquette sur l'écran, On entend par 
catalogue de la disquette la liste de tous les fichiers sauvegardés sur 
une face de disquette. La disquette doit être organisée: il existe à cet 
effet des blocs spéciaux sur la disquette sur lesquels figurent les 
informations suivantes: le nom des différents fichiers, leur taille, le 
type auquel ils appartiennent et où le DOS, le Disk Operating System, 
peut trouver ces fichiers. 


Si vous examinez avec l'instruction cat ou avec Idir le catalogue de la 
disquette, vous obtenez des informations sur les fichiers figurant sur la 
disquette et sur la place encore disponible pour des sauvegardes sur la 
disquette. 


Si vous utilisez l'instruction cat, on vous indique en outre encore la 


longueur des différents fichiers en Koctets, ce qui manque avec 
l'instruction Idir, La plus petite unité pour un fichier est le Koctets,. 
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Les instructions Idir et cat ne sont pas identiques. Toutes deux 
affichent le catalogue de la disquette mais l’instruction Idir affiche 
les fichiers dans l'ordre dans lequel ils ont été placés sur la disquette 
alors que l'instruction cat affiche Ja taille de chaque fichier et trie 
en outre les entrées du catalogue par ordre alphabétique avant de les 
sortir sur l'écran, Il y a donc là deux différences importantes. 


Vous allez trouver également dans ce catalogue de la disquette le fichier 
“nombres” que nous venons de créer: 


nombres . 1k 


Comme nous n'avons pas indiqué de type de fichier, aucun type de fichier 
n'est indiqué après le point. Les noms de fichiers sont toujours 
complétés par des espaces si nécessaire, de façon à ce qu'ils comportent 
toujours exactement 8 caractères. 


Vous voyez que nos 100 nombres occupent 1 Koctets, soit 1024 octets. Mais 
même si nous n'avions écrit qu’un nombre dans ce fichier, le fichier 
“nombres” occuperait de toute façon 1 Koctets puisque c'est la plus 
petite unité possible, 


Mais lancez maintenant votre programme à nouveau et voyez ce que devient 
le catalogue. Entrez RUN, puis cat. 


Vous verrez qu'il y a maintenant deux fichiers portant le nom “nombres”. 
Un des fichiers ne comporte pas d'indication du type de fichier. C'est 
dans ce fichier que figurent les 100 nombres que vous avez sauvegardés en 
dernier, I1 y a cependant maintenant encore un fichier "nombres .BAK”, 
Vous vous souvenez certainement, comme nous vous l’expliquions dans ja 
partie consacrée à CP/M, que BAK est l'abréviation de BAcKup. Lors de 
l'ouverture du fichier “nombres” avec l'instruction OPENOUT"nombres”, 
AMSDOS a testé si le fichier “nombres” existait déjà. Comme nous avions 
déjà fait exécuter notre programme une fois, ce fichier existait déjà. 
C'est d'ailleurs ce que nous avons pu constater d'après le catalogue. 
Comme AMSDOS ne veut pas effacer ce fichier, il en réalise d'abord une 
copie de sécurité sous le nom de “nom de fichier.BAK", C'est alors 
seulement que l'ancien fichier est véritablement supprimé, de façon à ce 
que le nouveau fichier puisse être ouvert sous le même nom. Vous 
apprécierez certainement à l'usage cette particularité d'AMSDOS, Si vous 
fetes certain de ne plus avoir besoin de la copie de sécurité, vous pouvez 
également la supprimer. 
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Lorsque vous sauvegardez un programme Basic avec l'instruction SAVE"nom 
de fichier” ou SAVE"nom de fichier.BAS",A, un programme pouvant déjà 
figurer sur la disquette sous le même nom sera également d'abord 
sauvegardé sous forme de fichier Backup, de sorte que vos programmes 
Basic sont protégés de façon assez efficace contre un effaçage inopiné. 
Essayez donc ce qui suit: 


Entrez NE. 
NEW (ENTER) 


10 PRINT"Premiere partie.” 
20 PRINT 


SAVE “Prog” 


Le programme est sauvegardé sur la disquette sous le nom de 
"Prog .BAS",. Ajoutez encore les lignes: 


30 PRINT"a ete complete. 
40 PRINT 


Entrez à nouveau l'instruction de sauvegarde d'un programme: 
SAVE "Prog" 


Vous utilisez donc exactement le même nom de fichier qu'auparavant. Vous 
pouvez maintenant entrer LOAD”Prog.BAK”. (Notez que lorsque vous entrez 
un nom de fichier il n'est pas obligatoire qu'il y ait effectivement 8 
caractères avant le point.) Si vous faites maintenant lister votre 
programme, vous constatez que c'est la première version de notre petit 
programme que vous avez chargée, Entrez maintenant: 


LOAD"“Prog" 

et c'est la dernière version avec 4 lignes de programme qui sera chargée 
en mémoire, Supposons que vous complétiez encore le programme en y 
ajoutant la ligne: 


50 END 


et que vous le sauvegardiez une nouvelle fois sur la disquette, la toute 
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première version du programme qui ne comportait que deux lignes aura 
cette fois disparu, Vous trouvez maintenant notre programme de 4 lignes 
sous le nom de “Prog.BAK" et le programme actuel a pour nom “Prog.BAS", 


Si vous sauvegardiez maintenant le programme sous le nom de “nombres”, 
aucun fichier de copie ne serait réalisé car il n'existe aucun fichier 
sous le nom de “nombres.BAS",. Vos fichiers “nombres” et “”nombres.BAK" 
seront donc conservés, Si toutefois vous sauvegardez le programme encore 
une fois, le fichier “nombres,.BAK" sera effacé et remplacé par une copie 
du programme Basic. 


Voici les autres instructions SAVE possibles: 
SAVE"nom de fichier”, A 


sauvegarde le programme sous la forme d’un fichier ASCII. Ces fichiers de 
programme sont un peu plus longs que les fichiers de programme Basic 
“normaux” car les différentes instructions comme “PRINT” par exemple sont 
sauvegardées sur la disquette caractère par caractère et non sous la 
forme d’un token, (Un token est un code d’un octet représentant Un mot- 
clé Basic.) Les programmes qui ont été sauvegardés avec cette instruction 
peuvent également être lus caractère par caractère par un programme. 


SAVE"nom de fichier”,P 


sauvegarde un programme protégé, c'est-à-dire qu'on ne peut plus LISTer 
le programme et qu'après une interruption par (ESC)(ESC) il n'est plus 
possible de le relancer ni de le sauvegarder, 


SAVE”nom de fichier”,B,<adresse de départ>, <longueur > 


Cette instruction vous permet de sauvegarder une zone de la mémoire, par 
exemple la zone de la mémoire-écran, sous la forme d’un fichier binaire. 
Vous devez indiquer l'adresse de départ et la longueur de la zone de 
mémoire. Lors du chargement avec l'instruction LOAD"nom de fichier .BIN", 
le fichier sera alors à nouveau chargé dans l'adresse originale 
correspondante. 


Vous pouvez bien sûr fournir également dans le nom de fichier pour 


l'instruction SAVE, exactement comme pour l'instruction LOAD, des 
indications sur le lecteur de disquette et sur le numéro user. 
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Vous avez certainement remarqué que vous pouvez travailler avec 
l'instruction SAVE comme vous y étiez habitué avec le Basic cassette. 
L'utilisation des autres instructions Basic de chargement et d'écriture 
de données vous sera expliquée dans le chapitre suivant, où nous vous 
expliquerons également, par des exemples, le travail avec des fichiers 
séquentiels,. 


1,4,4 LES INSTRUCTIONS SUPPLEMENTAIRES AMSDOS 


En connectant le lecteur de disquette, vous avez à votre disposition 
encore d’autres instructions disquette qui sont sauvegardées dans la ROM 
(Read Only Memory) du lecteur de disquette. Ces instructions sont 
également appelées instructions externes parce qu'elles sont définies 
dans le lecteur de disquette. 

Sans lecteur de disquette, vous ne pouvez utiliser ces instructions. Vous 
pouvez identifier ces instructions par le fait qu’elles commencent par le 
caractère I(Touches SHIFT et @). Vous pouvez aussi bien entrer ces 
instructions directement que les intégrer dans des programmes, Voici la 
liste des instructions externes avec des exemples caractéristiques. 


Lorsqu'un mot est entouré par les caractères < et >, cela signifie qu'il 
s'agit d'un qualificatif de paramètre. Par exemple, vous trouverez 
souvent l'expression <expression alphanumérique> ce qui signifie que vous 
devez insérer à cet endroit une variable alphanumérique dans 
l'instruction, Mais si 1’ <expression alphanumérique> est placée entre 
crochets [<expression alphanumérique>], cela vous indique que Ï|’ 
<expression alphanumérique> peut être également négligée et qu'elle est 
donc facultative, 


Cette instruction définit le lecteur À comme lecteur standard. Cette 
instruction est bien sûr inutile si vous n'avez qu’un lecteur de 
disquette puisque ce lecteur de disquette À est automatiquement le 
lecteur standard, On entend par lecteur standard le lecteur de disquette 
qui est automatiquement appelé par les instructions disquette lorsque le 
lecteur de disquette n'est pas précisé dans l'instruction. Cette 
instruction est identique à l'instruction: 
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a$-"a" 
IDRIVE a$ 


Cette instruction définit le lecteur B comme lecteur standard (voir ci- 
dessus), Cette instruction est identique à l'instruction: 


a$="b" 
IDRIVE.6a$ 


Le système CP/M est chargé à partir de la disquette, Lorsque vous 
utilisez cette instruction, il faut qu'une disquette qui a été formatée 
avec CP/M sur les deux pistes système se trouve dans le lecteur A. Il 
peut s'agir par exemple de la disquette fournie avec le lecteur de 
disquette. 


Cette instruction vous montre le contenu de la disquette. Elle est très 
comparable à l'instruction Basic standard CAT. 

On vous montre le catalogue de la disquette ainsi que la place encore 
disponible sur la disquette. 

Si 1’ <expression alphanumérique> facultative manque, on supposera *,*, 
ce qui veut dire que tous les fichiers seront sortis (sans sélection). 
Comme nous l'avons déjà expliqué, les étoiles et les points 
d'interrogation sont des Jokers qui représentent n'importe quels 
caractères, En guise de rappel: un point d'interrogation signifie: ici 
peut se trouver n'importe quel caractère; une étoile signifie: à partir 
d'ici et jusqu’à la fin du nom de fichier peuvent figurer n'importe quels 
caractères, Supposons que vous vouliez avoir une liste uniquement des 
fichiers Basic, vous l'obtiendrez avec l'instruction: 
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a$="*, BAS" 
IDIR@a$ 


L'utilisation des Jokers peut être très utile et vous faire gagner 
beaucoup de temps. Essayez de retenir l'utilisation de ces caractères de 
façon à ce que vous puissiez les mettre vous-même en oeuvre, Il arrive 
souvent en effet qu’on ne veuille par exemple avoir une liste que des 
fichiers Basic ou que des fichiers séquentiels. Avec l'instruction IDIR, 
la sélection que vous pouvez ainsi effectuer vous permet d'obtenir une 
plus grande clarté des informations, 


L'avantage de l'instruction CAT est qu'elle trie les noms de fichier 
avant de les sortir et qu'elle indique la taille des fichiers. 
L’'instruction IDIR a l'avantage de permettre un affichage SELECTIF du 
catalogue, 


Cette instruction comprend les deux instructions Idisc.in et Idisc.out. 
Comme vous devez utiliser les mêmes instructions Basic pour le lecteur de 
cassette et pour le lecteur de disquette, vous ne pourriez en principe 
appeler avec succès qu’un seul des deux périphériques. Mais pour que vous 
puissiez également utiliser le lecteur de cassette lorsque vous 
travaillez avec le lecteur de disquette, les instructions Idisc et Itape 
vous permettent de sélectionner librement le périphérique d'entrée ou de 
sortie. 


Après que cette instruction ait été entrée, les instructions d'ENTREE 
suivantes se rapporteront toutes automatiquement au lecteur de disquette, 
et non au lecteur de cassette: 


LOAD"Nom de fichier” 


RUN"Nom de fichier" 
CHAIN"Nom de fichier” 
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CHAIN MERGE"Nom de fichier” 
MERGE"Nom de fichier” 
OPENIN"Nom de fichier” 
CLOSEIN ; 

EOF 

CAT 

INPUT#9 

LINE INPUT#9 


Cette instruction déconnecte à nouveau l'instruction ITAPE ou ITAPE.IN. 
Si vous avez par exemple la séquence d'instructions suivante: 


ITAPE 

IDISC.IN 
OPENIN"Fichier" 
OPENOUT "Backup" 


un canal d'entrée sera ouvert en lecture sur le lecteur de disquette mais 
le canal de sortie écrira sur la cassette, C'est ainsi que vous pouvez 
par exemple copier des fichiers de la disquette sur la cassette (pour des 
raisons de sécurité des données), 


Cette instruction est comparable à l'instruction IDISC.IN mais ce sont 
ici les sorties qui sont envoyées sur le lecteur de disquette. Les 
instructions suivantes sont concernées: 


SAVE"Nom de fichier” 
OPENOUT"Nom de fichier” 
CLOSEOUT 

WRITE#9 

PRINT#9 


ITAPE 

JDISC.OUT 
IOPENIN"Backup" 
IOPENOUT"Fichier” 
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C'est donc l'inverse de l'exemple donné pour IDISC.IN. Maintenant le 
fichier Backup sera lu à partir de la cassette avec les instructions de 
lecture mais les instructions d'écriture se rapporteront au lecteur de 
disquette. 


Cette instruction est identique aux instructions IA et IB mais cette 
instruction est plus souple car le nom du lecteur de disquette standard à 
sélectionner peut être fourni sous forme d’une variable alphanumérique. 


a$="b" 
IDRIVE,@a$ 


aura pour conséquence que le lecteur de disquette B sera défini comme 
lecteur standard à partir du moment où cette instruction aura été 
exécutée. Vous ne pouvez bien sûr pas utiliser cette instruction si vous 
n'avez qu’un lecteur de disquette. 


ERA est mis pour le mot anglais ERAse=supprimer,. Cette instruction vous 
permet donc de supprimer des fichiers, Vous pouvez également utiliser des 
Jokers avec cette instruction, Par exemple, l'instruction: 


a$="* ; seq” 
IERA.@a$ 


Supprimera tous les fichiers ayant le type de fichier “seq”,. Il convient 
cependant de toujours bien réfléchir avant d'utiliser cette instruction, 
notamment lorsqu'on travaille avec des jJokers, Il peut en effet arriver 
dans ce dernier cas que vous supprimiez également des fichiers que vous 
n'aviez pas l'intention de supprimer, Il est donc déconseillé d'utiliser 
des Jokers avec l'instruction IERA si l'on n’a pas encore l'habitude du 
maniement du lecteur de disquette et de l'utilisation des jokers. 
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L'instruction: 


a$="* #" 


IERA@aS 


supprimera tous les fichiers, Dans ce cas AMSDOS attend une confirmation 
spéciale de l'instruction. 


REName= changement du nom d'un fichier, Cette instruction vous permet 
donc de donner un autre nom à un fichier. La première expression 
alphanumérique doit contenir le NOUVEAU nom de fichier, la seconde 
contient l'ancien nom de fichier, Si vous voulez par exemple changer le 
nom du fichier “Pepe” parce que vous préférez votre mémé, vous pouvez 
entrer les instructions suivantes: 


ancien$="Pepe, bas" 
nouveau$="Meme.bas” 
IREN, nouveau$, ancien$ 


Si vous examinez maintenant le catalogue avec l'instruction IDIR, vous 
verrez que le fichier "Pepe.BAS" n'existe plus et qu’il y a par contre 
maintenant un fichier "’Meme,BAS", 

L'indication des deux expressions alphanumér iques est obligatoire. 


Cette instruction annule les instructions IDISC, IDISC.IN et IDISC.OUT 
et place l'entrée comme la sortie sur le lecteur de cassette. Cette 
instruction comprend les fonctions des instructions ITAPE.IN et 
ITAPE ,OUT. 
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Cette instruction fait que le lecteur de cassette sera utilisé en entrée. 
Cette instruction annule les instructions IDISC et IDISC.IN. 


Le lecteur de cassette sera utilisé comme périphérique de sortie. Cette 
instruction annule les instructions IDISC et IDISC.OUT. 


Cette instruction vous permet de définir un user = utilisateur déterminé. 
Vous avez certainement déjà remarqué que dans les catalogues de Ja 
disquette apparaît également le message: 


USER: 0 


11 s'agit d'une très utile instruction spéciale CP/M. Vous trouverez des 
informations plus complètes à ce sujet au chapitre 1.4,2, 


L'instruction IUSER vous permet par exemple de protéger vos fichiers 
contre les regards indiscrets, 

Sauvegardez donc un programme Basic quelconque de la façon suivante: 
IUSER, 3 

SAVE “Programme” 


IUSER, O0 
CAT 


ou beaucoup plus simplement avec l'instruction: 


SAVE”3:Programme” 
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Vous ne trouverez pas le programme que vous venez de sauvegarder dans le 
catalogue. Mais si vous entrez: 


IUSER, 3 
CAT 
IUSER, O 


vous verrez s'afficher un catalogue beaucoup plus court puisqu'il ne 
comporte qu’une entrée, Vous pouvez donc constituer plusieurs catalogues 
différents ou dissimuler certains programmes à d'autres utilisateurs. 


Vous avez certainement remarqué que les instructions avec des expressions 
alphanumériques sont particulièrement difficiles à utiliser, Vous êtes en 
effet obligé d'entrer par exemple: 


a$="a" 
IDRIVE,@a$ 


alors qu’il serait beaucoup plus simple d'entrer: 
IDRIVE, “a” 


Cependant le système d'exploitation Basic prévoit que l'adresse d'une 
expression alphanumérique doit être transmise au système d'exploitation 
AMSDOS, AMSDOS va alors lui-même chercher cette chaîne de caractères dans 
la mémoire. 


Les chaînes de caractères peuvent être placées n'importe où dans la 
mémoire, La fonction @nom de variable vous permet de faire afficher 
l'adresse à laquelle est stockée la variable, en l'occurrence une chaîne 
de caractères, Cette forme de transmission des données n'est certainement 
pas très pratique mais vous vous habituerez vite à cette procédure, 
L'instruction @ est une instruction Basic utile qui n’est pas évoquée 
dans le manuel d'utilisation. Entrez par exemple: 


a=12,2 
PRINT@a 


Suivant le nombre de variables que vous avez déjà utilisées, la valeur 
sortie en réponse sera plus ou moins élevée. Plus une variable est 
déclarée tardivement, plus grande sera la valeur de la fonction nom de 
variable, La longueur du programme Basic actuel Joue par ailleurs 
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également un rôle car la table des variables commence dans la mémoire 
immédiatement après le programme Basic. 


Comme vous le savez peut-être, les variables numériques sont placées dans 
la mémoire de bas en haut alors que les chaînes sont situées contre la 
limite supérieure de la mémoire et se déplacent vers le bas. Vous pouvez 
vous en rendre compte avec l'exemple suivant: 


NEW 
a=10.1:b=20:a$="Exemple 1":b$="Exemple 2” 


PRINT@ a,@b,@a$,@b$ 


Si vous examinez maintenant les adresses des variables, vous voyez que 
les variables numériques occupent 9 octets. Ici sont stockées les valeurs 
des variables a et b ainsi que leurs noms. Les variables alphanumér iques 
(chaînes de caractères) sont cependant stockées différemment, Entrez par 
exemple: 


PRINT PEEK@a$) 


Vous obtenez alors la valeur 9 qui correspond exactement à la longueur de 
la variable a$,. Il en va de même pour la variable b$. Les valeurs des 
cases mémoire: 


@a$+1 ainsi que: 
@a$+2 


constituent un pointeur. Ce pointeur indique au système d'exploitation où 
il peut trouver la chaîne de caractères elle-même. Cette méthode de 
stockage des chaînes vous semble peut-être compliquée mais elle présente 
un avantage décisif: il n'est pas nécessaire de déplacer la totalité de 
la table des variables lorsqu'une chaîne voit sa longueur modifiée; il 
suffit de modifier les trois octets que nous venons de décrire. 


Mais faisons éditer la chaîne a$ de façon peu conventionnelle: 
ad=PEEK(@a$+1)+256*PEEK(@a$+2) 


Nous avons maintenant calculé l'adresse à laquelle est stockée la chaîne 
de caractères a$. Nous avons sauvé cette adresse dans la variable ad. 
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FOR I=0 TO PEEK@a$)-1 
PRINT CHR$(PEEK(ad+I) ); 
NEXT 1! 


Et vous obtenez exactement le contenu de la variable a$. Vous pouvez très 
facilement changer les valeurs des pointeurs des variables 
alphanumériques et arriver ainsi à ce que leur contenu se modifie à votre 
guise, Cette propriété sera aussi utilisée dans les programmes du 
chapitre 5 (routine d'’interception des erreurs et gestion de fichier 
relatif), Détournez par exemple la chaîne a$ sur votre écran: 


POKE @ a$+1, 800 
POKE @a$+2,ec1 


Le pointeur de la chaîne de caractères est maintenant dirigé sur le beau 
milieu de la mémoire écran. Faites maintenant éditer la variable 
alphanumérique af: 


PRINT a$ 


Il n'est pas possible de décrire précisément l'effet obtenu car il sera 
différent suivant ce que contenait votre écran, mais il se peut que le 
cadre se mette à clignoter ou que le mode d'écriture change de lui-même. 
En tout cas vous obtenez une série de caractères indéfinis. Nous en 
terminerons ainsi avec cette introduction à l'instruction @. 
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1,5 SAUVEGARDE SEQUENTIELLE DE DONNEES 


1.5,1 QU'EST-CE QUE LA SAUVEGARDE SEQUENTIELLE DE DONNEES? 


Un lecteur de disquette ne doit bien sûr pas servir uniquement à la 
Sauvegarde et au chargement des programmes; il convient en outre 
parfaitement à la sauvegarde de grandes masses de données qu'il était 
jusqu'alors, avec le lecteur de cassette, pratiquement impossible de 
maîtriser. 


Le DDI-1 ne vous permet en principe de traiter que des fichiers 
SEQUENTIELS comme ceux que vous connaissez déjà d'après le Basic 
cassette; le principe est totalement identique, La sauvegarde 
séquentielle de données n'est pas la méthode la plus rapide mais c'est la 
plus simple pour sauvegarder des données, Elle est d’ailleurs tout à fait 
suffisante pour les petits ou moyens problèmes. Comme elle est d'autre 
part simple à comprendre, elle convient parfaitement à l'apprentissage. 


Séquentiel ne signifie pas autre chose que CARACTERE par CARACTERE. Un 
fichier séquentiel est donc une séquence (une suite) de caractères 
(lettres, chiffres, caractères spéciaux etc.). Pour lire le dernier 
caractère d’un fichier, il faut lire tous les caractères situés 
auparavant, du premier à l'avant-dernier. Imaginez par exemple un livre 
de 100 pages, Pour lire la première lettre de la page 100 vous devriez 
d'abord lire TOUTES les lettres des pages 1 à 99, C'est ainsi qu'un 
fichier séquentiel est Iu; une méthode évidemment peu pratique. 
Heureusement le DDI-1 est très rapide de sorte qu'on se rend à peine 
compte de tels problèmes, 


Une possibilité nettement plus pratique pour la sauvegarde des données 
consiste à pouvoir accéder directement à un fichier, ce que l'on appelle 
accès direct ou Random access; le terme de fichier relatif s'est 
également imposé. 


L'accès direct signifie, pour rester sur notre exemple du livre, que vous 
pouvez lire par exemple directement la 55ème lettre de la 29ème page sans 
etre obligé de lire toutes les pages précédentes. Lorsque vous en êtes 
arrivé, sur un fichier séquentiel, au 100ème enregistrement, vous ne 
pouvez plus lire de caractère appartenant au 5ème enregistrement, il 
n'est donc pas possible de revenir en arrière, C'est là une des limites à 
l'efficacité des fichiers séquentiels que l'on ne rencontre plus avec les 
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fichiers relatifs. 


Il s'agit cependant simplement ici pour nous de vous faire comprendre 
grossièrement les différences entre les deux types de fichier. Vous 
trouverez au chapitre 5 de plus amples informations sur les fichiers 
relatifs et sur la façon dont ils peuvent être programmés sur le DDI-1. 


Nous allons maintenant expliquer avec quelques exemples comment on peut 
utiliser de façon efficace la sauvegarde séquentielle des données puisque 
celle-ci constitue (pour le moment) la seule possibilité dont nous 
disposons pour sauvegarder des données sur disquette. 


Nous allons maintenant créer notre premier petit fichier. Nous allons, à 
titre d'exemple, créer un agenda téléphonique qui nous permettra 
d'enregistrer les principaux numéros de téléphone de nos parents ou amis. 


Lorsqu'on crée un fichier, se pose toujours au début la question de 
savoir ce qu'on veut au juste enregistrer. Dans l'exemple suivant nous 
avons choisi les indications suivantes: 


1)Nom (=Champ 1) 
2)Prénom (=Champ 2) 
3)No de tél. (=Champ 3) 


Un enregistrement est une unité cohérente. Chaque enregistrement contient 
des informations que l'on retrouve également dans tout autre 
enregistrement, Notre enregistrement se compose de trois champs. 


Nous pourrions ainsi avoir un enregistrement “Dupont” qui contienne comme 


informations les nom, prénom et numéro de téléphone de notre collègue 
Dupont. 
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Figure 3 
LE FICHIER COMPLET 


Enregistrement 1 Enregistrement 2 Enregistrement 3 


Dupont Jourdain Peterson 
Thomas Cécile Hans-Dieter 
23 44 98 21 80 23 44 O1 34 41 22 37 


Nous avons trois champs par enregistrement: 
Nom, Prénom et Numéro de téléphone 


Champ 1: Nom 
Champ 2: Prénom 
Champ 3: Numéro de téléphone 


Vous pouvez bien vous représenter, au vu de cette figure, les 
subdivisions que comporte un fichier. 

Lorsque les données sont écrites dans un fichier, il n'est pas possible 
de distinguer aussi nettement que nous l'avons fait ici sur le papier les 
subdivisions en enregistrements. Seuls les champs sont séparés 
physiquement les uns des autres, La séparation entre les enregistrements 
ne se distingue pas en effet de la séparation entre les champs de 
données; c'est le même symbole de séparation qui est utilisé. La 
séparation entre les différents enregistrements, c'est-à-dire la bonne 
affectation des champs de données incombe au programmeur. Il est le seul 
à savoir combien de champs comporte chaque enregistrement. 


Lorsque vous avez terminé une entrée à l'écran, vous actionnez la touche 
ENTER, également appelée RETOUR DE CHARIOT, en anglais CARRIAGE RETURN. 
Il en va exactement de même avec la sauvegarde séquentielle des données 
puisque les différents champs de données sont en effet séparés sur la 
disquette par un retour de chariot: le code ASCII 13 est produit, 


Pour vous permettre de vous représenter plus facilement comment les 


différents champs de données sont séparés, examinons la figure 4. Le 
symbole de séparation retour de chariot est représenté par l'étoile (*). 
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Figure 4 


Dupont*Thomas*23449821*Jourdain*C... 
Champ1 Champ2 Champ 3 Champ 1 


ENREGISTREMENT 1 ENREGISTREMENT 2 


Vous voyez d’après notre exemple que les champs de données ne doivent pas 
avoir obligatoirement la même longueur mais qu'ils peuvent avoir dans les 
fichiers séquentiels une longueur quelconque, il en va de même pour la 
longueur des enregistrements, Les champs de données peuvent être 
cependant clairement identifiés puisqu'ils sont séparés les uns des 
autres par le symbole de retour de chariot (*), 


Pour lire un tel fichier, on utilise l'instruction INPUT#9, 
OPENIN”’Nom de fichier” 


INPUT#9, Nom$, Prenom$, Telephone$ 
CLOSEIN 


Après ces instructions, seul un enregistrement déterminé serait lu: les 
variables pourraient avoir par exemple les valeurs suivantes: 


Nom$ ="Durand” 
Prenom$ ="Alain" 
Telephone$ ="14 22 51 33" 


Les guillemets ne servent ici qu’à indiquer le début et la fin d'une 
chaîne de caractères et ils n'appartiennent pas à la chaîne elle-même. 
Des chaînes peuvent toutefois contenir des guillemets, 


1.5.2 LA PROGRAMMATION DES FICHIERS SEQUENTIELS 


Mais nous allons maintenant créer concrètement un fichier séquentiel sur 
disquette. Entrez pour cela le petit programme suivant: 
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1N REM =====z2s2ss===2s2s=2s22ssessssseesszz 


90 REM =========222222=22222=2=2222222e 
40 : 

50 OPENOUT"Test.dat" 

60 PRINT#9, "Durand" 

70 PRINT#9, "Louis" 

80 PRINT#9,"14225114" 

90 REM --- premier enregistrement --- 
100 PRINT#9, "Chalet" 

110 PRINT#9, "Lucienne" 

120 PRINT#9,"23990123" 

130 REM --- second enregistrement --- 
140 PRINT#9,"Lefo1" 

150 PRINT#9, "Charles" 

160 PRINT#9,"18155118" 

170 REM --- troisieme enregistrement --- 
180 CLOSEOUT 

190 END 


Nous avons créé un fichier sous le nom de “Test.dat” qui contient trois 
enregistrements. 

L'instruction Basic PRINT#n s'emploie exactement comme l'instruction 
PRINT normale. Vous connaissez certainement déjà l'instruction PRINT# en 
liaison avec les windows (fenêtres) que vous pouvez définir sur votre 
Amstrad, L'instruction PRINT# vous permet d'appeler une des instructions 
définies lorsque n est compris entre O0 et 7, Si n=8, c'est l'imprimante 
qui est appelée et si n=9 c'est le lecteur de cassette ou le lecteur de 
disquette, suivant la configuration utilisée. Il en va de même pour les 
instructions INPUT#n et LINE INPUT#N. 


Le caractère de séparation logique Carriage Return est dans notre exemple 
placé entre les enregistrements parce que l'instruction PRINT#9 n'est pas 
suivie d’un point-virgule., C'est donc le même principe que pour 
l'instruction PRINT simple, Si vous placez un poini-virgule à la fin 
d'une instruction PRINT, la prochaine sortie sera écrite sur la même 
ligne. Pour les sorties sur le lecteur de disquette, vous pouvez 
également constituer un champ de données en plaçant plusieurs sorties à 
la suite l'une de l’autre. 


Mais commençons d'abord par relire nos données: 
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10 REM ========2zs2==22=22ses222ses222zs 
20 REM LIRE LES DONNEES SAUVEES 

30 REM ======2====222======2222=2s=22222 
40 

50 OPENIN"Test.dat" 

60 INPUT#9,Nom$,Prenom$,Telephones 

70 PRINT Nom$,Prenom$,Telephones 

80 INPUT#9,Nom$,Prenom$,Telephones 

90 PRINT Nom$,Prenom$,Telephones$ 

100 INPUT#9,Nom$,Prenom$,Telephones 

110 PRINT Nom$,Prenom$,Telephones 

120 CLOSEIN 

130 END 


Vous obtenez alors la sortie suivante: 


Durand Louis 14225114 
Chalet Lucienne 23990123 
Lefol Charles 18155118 


Nous avons donc réussi à sauvegarder des données sur disquette et à les 
relire; nous pouvons ainsi dire pour récapituler: 


Avec PRINT#9 nous écrivons des données sur disquette et avec INPUT#9 nous 
pouvons les relire. L'entrée et la sortie sur disquette ne se distinguent 
donc pas trop de l'entrée et de la sortie sur écran, 


Notre exemple fonctionne donc bien mais de façon encore très peu pratique 
si l'on pense au travail qui serait nécessaire pour faire lire ainsi 100 
enregistrements. C’est une boucle qui sera ici la solution de notre 
problème et qui apportera un allègement considérable: 
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50 OPENIN"'Test. dat" 

60 FOR i=1 TO 3 

70 INPUT#9, Nom$, Prenom$,Telephones 
80 PRINT Nom$,Prenom$,Telephones$ 
90 NEXT i 

100 CLOSEIN 

110 END 


Il n'est pas nécessaire de toujours lire un enregistrement d'une seule 
traite, Vous pourriez également procéder ainsi: 


50 OPENIN"Test. dat" 
60 FOR i=1 TO 3 

70 INPUT#9,Nom$ 

80 PRINT Noms, 

90 INPUT#9,Prenom$ 
100 PRINT Prenom$, 
110 INPUT#9, Telephones 
120 PRINT Telephones 
130 NEXT i 

140 CLOSEIN 

150 END 


Vous devez vous dire qu'après l'ouverture d'un fichier, les données du 
fichier sont à votre disposition. Peu importe à cet égard que vous lisiez 
un enregistrement avec une seule instruction INPUT, comme par exemple 
avec: 


INPUT#9, Nom$, Prenom$, Telephone$ 


ou que vous lisiez l'enregistrement morceau par morceau avec plusieurs 
instructions Input, comme par exemple avec: 


INPUT#9, Nom$ 
INPUT#9, Prenom$ 
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INPUT#9, Telephones 


Lorsque vous venez de Jlire un enregistrement, un pointeur note 
l'emplacement où doit se poursuivre la lecture. 


Vous pouvez également fermer prématurément un fichier que vous avez 
ouvert en lecture, sans en avoir donc lu tous les enregistrements. 


Si vous avez cependant déjà lu le dernier élément du fichier et que vous 
effectuez à nouveau une nouvelle tentative de lecture, vous obtenez Île 
message d'erreur: 


EOF met 

Nous allons vous montrer cela dans un exemple. 

Chaque chiffre représente, dans l'exemple suivant, un enregistrement: 
12345678901234567890123* 


Nous avons donc 23 enregistrements: EOF est représenté par le caractère 
"*#, Après l'ouverture du fichier en lecture, le premier enregistrement 
sera lu, Le pointeur interne est simulé dans la seconde ligne, Voici 
comment les choses se présentent de façon interne après l'instruction 
OPENIN: 


12345678901234567890123* 
L 


Le pointeur est dirigé sur le premier enregistrement: nous lisons 
maintenant le premier enregistrement avec l'instruction INPUT, Après que 
le premier enregistrement ait été lu, notre pointeur interne est dirigé 
sur le second enregistrement: 


12345678901234567890123* 
Î 


Lors d'une lecture, c'est maintenant le second enregistrement qui serait 
lu, Cela continue ainsi jusqu'à ce que nous en arrivions au dernier 
enregistrement de notre fichier. 
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12345678901234567890123* 
1 


Dans notre exemple, le dernier enregistrement n'a donc pas été encore lu 
puisque le pointeur interne est dirigé sur ce dernier enregistrement. 
Nous lisons maintenant également ce dernier enregistrement: 


12345678901234567890123* 
Î 


Il n'y a plus maintenant d'enregistrement disponible, nous sommes arrivé 
à la fin des entrées du fichier. Le pointeur est maintenant dirigé sur 
l'étoile qui est censée représenter ici la marque EOF,. Lors de notre 
dernière tentative de lecture, le flag EOF a été mis par le système 
d'exploitation sur vrai=-1, Une autre tentative de lecture provoquerait 
l'erreur EOF met. 


La fonction EOF nous indique donc si nous avons où non déjà lu le dernier 
élément d'un fichier. 


Pour éviter de provoquer cette erreur, nous pouvons utiliser la fonction 
Basic EOF. Quand vous ne savez pas exactement combien d'enregistrements 
vous devez lire, il est même indispensable d'utiliser la fonction EOF. 
Notre programme se présenterait alors ainsi: 


10 REM ===2===zsz=zsszzzszszsssszssessss= 
20 REM LIRE LES DONNEES AVEC EOF 
30 REM ==-====-2222z222222esesz222zs2szzs 


50 OPENIN'"'Test.dat" 

60 WHILE NOT EOF 

710 INPUT#9,Nom$, Prenom$, Telephones 
80 PRINT Nom$,Prenom$,Telephones 
90 WEND 

109 CLOSFIN 

110 END 


Cet exemple est cependant assez dangereux car nous partons du principe 
qu'il reste toujours encore trois autre champs de données tant que nous 
n'avons pas rencontré EOF, Pour les fichiers de structure inconnue, il 
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est impossible de le prévoir. Notre programme devrait donc se présenter 
ainsi: 


10 REM ====em2s2esme2ce2e22e2semeseusss 
20 REM LECTURE DE DONNEES SOUPLE 

30 REM =====2==2=2=22=22222=2=222s22522 
40 : 

50 OPENIN"Test.dat" 

60 WHILE NOT EOF 

70 INPUT#9, Champs 

80 PRINT Champs 

90 WEND 

100 CLOSEIN 

110 END 


Avec ce programme, une erreur EOF met est exclue puisqu'on teste si EOF 
après la lecture de chaque champ. 


Quand les champs de données sont lus avec l'instruction INPUT#9, les 
caractères suivants fonctionnent comme symboles de séparation entre les 
champs de données: 


Carriage Return (retour de chariot) 
Virgule (,) 
Marque EOF 


Lorsque vous lisez des variables numériques avec INPUT#9, la <barre 
espace> fait également office de marque de séparation. 


Ces marques de séparation sont également faciles à retenir puisque la 
virgule et le retour de chariot font également office de marques de 
séparation avec l'instruction INPUT normale. 


Bien sûr vous pourriez également définir une marque de fin 
“particulière”, vous pourriez par exemple écrire toujours dans le dernier 
champ de donnée un “*fin“ ou autre. Vous pourriez alors faire rechercher 
cette marque par le programme. Vous m’accorderez cependant certainement 
que la manipulation de la fonction EOF constitue une méthode plus sûre et 
plus simple. 


Le plus souvent, on ne veut pas simplement lire des données pour les 
sortir immédiatement mais les données doivent encore pouvoir rester dans 
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la mémoire de l'ordinateur pour pouvoir être évaluées et modifiées. Dans 
ce cas, le mieux est de constituer un TABLEAU (ARRAY en anglais), une 
variable indexée, Si cette notion vous est inconnue, nous vous invitons à 
vous reporter au chapitre correspondant du manuel du Basic. 

Notre programme d'exemple se présenterait maintenant comme suit: 


10 DIM Nom$(3),Prenom$(3),Telephone$(3) 
REM 





60 x=0 

70 OPENIN"'Test.dat" 

80 WHILE NOT EOF 

90 x=x+1 

100 INPUT#9,Nom$(x},Prenom$(x),Telephone$(x) 
110 WEND 

120 PRINT x-1; "enregistrements ont ete lus." 
130 CLOSEIN 

140 END 


Dans l'instruction DIM en ligne 10, vous devez définir la limite de 
l'index en fonction de la limite supérieure du nombre d'enregistrements. 


Mec une telle boucle, on peut lire un fichier et le placer dans un 
tableau, On peut ensuite traiter le fichier par le programme puis 
sauvegarder à nouveau le fichier de façon séquentielle. C'est ici le 
principe LECTURE/ENTREE, TRAITEMENT et SORTIE qui s'applique. Quand la 
mémoire Île permet, nous vous recommandons de faire lire vos fichiers de 
cette façon et de les faire traiter dans le programme. Cette méthode a de 
grands avantages en ce qui concerne la vitesse de traitement. 


1,5,3 LES FICHIERS SEQUENTIELS ET LES TABLEAUX 


Sur les programmes d'envergure qui doivent gérer de grandes masses de 
données, il est conseillé de déterminer auparavant précisément la masse 
de données prévue et de définir alors cette masse de données dans le 
programme 


Si vous lisez le fichier séquentiel et que vous placiez tous les 


enregistrements dans un tableau, vous économisez beaucoup de temps de 
traitement car à partir de ce moment vous n'avez plus à accéder au 
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lecteur de disquette. (Un accès à des tableaux est toujours plus rapide 
qu'un accès à la disquette). 


Nos tableaux se présentent ainsi: 


No d’index Nom$ Prenom$ Telephone$ 
1 Durand Louis 14225114 

2 Chalet Lucienne 23990123 

3 Lefol Charles 18155118 


Nous avons donc simplement Iu une fois ces données et nous les avons 
placées dans des tableaux, Nous avons ici utilisé 3 différents tableaux à 
une dimension. Il est plus pratique pour le programmeur de créer un 
tableau à deux dimensions de façon à pouvoir lui donner un SEUL nom, ce 
qui augmente la clarté du programme. 


Champ 1 Champ 2 Champ 3 
Enregistrement 1 D$(1,1) D$(1,2) D$(1,3) 
Enregistrement 2 D$(2,1) D$(2,2) D$(2,3) 
Enregistrement 3 D$(3,1) D$(3,2) D$(3,3) 
Enregistrement 4 D$(4,1) D$(4,2) D$(4,3) 
Enregistrement 5 D$(5,1) D$(5,2) D$(5,3) 


Notre tableau D$(x,y) a 5 enregistrements de 3 champs chacun. Ce tableau 
doit être “dimensionné”, c'est-à-dire créé avec l'instruction: 


DIM D$(5,3) 

Le tableau D$(x,y) pourrait avoir par exemple le contenu suivant: 
D$(x,1)=Nom auparavant Nom$(x) 

D$(x,2)=Prénom auparavant Prénom$(x) 


D$(x,3)=Téléphone auparavant Téléphone$(x) 


Notre programme d'exemple se présente alors ainsi: 
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10 REM =======s=s=sss22szsssssessssssssez 
20 REM LIRE LES DONNEES AVEC D$(x,y) 
30 REM ===e==2m2=2e22es222ese22z2ecezese 
40 DIM d$(3,3) 

50 REM 3 enregistrements et 3 champs 

60 OPENIN"Test.dat" 

80 FOR i=1 TO 3 

90 FOR j=1 TO 3 

100 INPUT #9,d$(i,j) 

110 NEXT j 


160 REM =======22sss=ss==s2ssssszssssss 
170 FOR i=1 TO 3 
180 FOR j=1 TO 3 
190 PRINT d5(i,j) 
200 NEXT j 
210 PRINT 
NEXT i 
230 CLOSEIN 
240 END 


Vous pouvez prendre ce programme d'exemple comme modèle si vous voulez 
vous-même écrire un programme de fichier. En imbriquant deux boucles vous 
réalisez une lecture logique pas à pas des champs de données et des 
enregistrements. Lorsque vous voulez modifier des données dans un 
programme de fichier, le mieux est de lire toutes les données et de les 
placer dans un tel tableau. Vous pouvez alors traiter les données, les 
corriger, etc, À la fin du programme, les données doivent alors être à 
nouveau sauvegardées sous le même nom. 

Le plus souvent on crée également un fichier auxiliaire dans lequel se 
trouvent des informations sur la masse de données. Par masse de données 
vous devez comprendre: combien de données comporte le tableau? Combien de 
champs de données comporte chaque enregistrement? Lorsque vous créez un 
programme souple de fichier ceci est indispensable pour des raisons 
pratiques. D'autre part vous pouvez de cette façon économiser une 
précieuse place mémoire car toute coordonnée inutile coûte de la place 
mémoire et du temps. L'instruction DIM permet également un 
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dimensionnement dynamique, c'est-à-dire que vous pouvez utiliser des 
variables comme limites d'index., Nous allons maintenant créer un tel 
fichier d'information, Nous entrerons à cet effet le nombre 
d'ENREGISTREMENTS ainsi que le nombre de CHAMPS de données par 
enregistrement. 


OPENOUT"Test. inf" 
WRITE#9,3,3 
CLOSEOUT 


Nous appellerons le type de fichier "INF" pour fichier d'’INFormation. Le 
nom de fichier doit être dans notre exemple identique au nom du fichier 
(.dat). Voici cette routine souple de lecture: 


50 INPUT"'Nom du fichier: ";files 

60 OPENIN file$+".inf" 

70 INPUT #9,enregistrements,champs 
80 CLOSEIN 

90 : 

100 DIM d$(enregistrements, champs) 


120 OPENIN fileS+".dat" 

130 FOR i=1 TO enregistrements 
140 FOR j=1 TO champs 

150 INPUT#9,d$({i,j) 

160 NEXT j 

170 NEXT i 

180 CLOSEIN 

190 END 


Lancez le programme et entrez “Test”. 


En ligne 100 le dimensionnement s'effectue alors en fonction des besoins. 
Dans les cas où le nombre d'enregistrements peut être augmenté au cours 
du déroulement du programme, il faut avoir prévu cette éventualité lors 
du dimensionnement, Une autre solution consiste à fixer auparavant le 
nombre maximal d'enregistrements; le nombre de champs peut cependant 
rester malgré tout dynamique car il est peu probable que le nombre des 
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champs de données ait à être modifié au cours de l'exécution du 
programme, La lecture à partir d’un fichier des nombres d'enregistrements 
et de champs peut être cependant malgré tout d'une aide précieuse. Si 
vous remplacez la ligne 100 par: 


100 DIM d$(200, champs) 
vous obtenez bien un nombre de champs dépendant de chaque fichier. 


Nous avons jusqu’à présent toujours indiqué, lors de l'ouverture d’un 
fichier, un nom précis. En effet le nom de fichier n'était pas variable, 
il figurait entre guillemets et il était déjà fixé lors de la 
programmation. On ouvre toutefois parfois un fichier avec une variable 
alphanumérique comme nous l'avons fait dans notre exemple (lignes 60 et 
120), Malheureusement le système d'exploitation n'est pas entièrement au 
point à cet égard, AMSDOS ouvre en effet parfois dans ce cas les fichiers 
sous un nom incorrect ou réagit par un message d'erreur. Si vous faites 
alors afficher, après ce message d'erreur, le contenu de la variable 
alphanumérique correspondante, vous pouvez vous rendre compte que le 
contenu de cette variable est pourtant correct. 

Lors de l'ouverture d’un fichier un buffer de 4096 octets est créé dans 
la RAM de l'Amstrad CPC. Ce buffer est situé la plupart du temps dans les 
régions supérieures de la mémoire, C’est cependant également dans ces 
régions que se trouvent les variables alphanumériques, Il peut donc 
arriver assez facilement que des “collisions” se produisent ici, surtout 
lorsque vous travaillez avec des tableaux car le nombre de chaînes de 
caractères est dans ce cas particulièrement élevé. Cela tient au fait que 
le système d'exploitation “nettoie” de temps à autre la mémoire car les 
manipulations de chaînes produisent beaucoup de déchet. Nous entendons 
par déchet tous anciens morceaux de chaîne qui sont devenus inutiles à la 
suite de manipulations de chaînes. Ce nettoyage” est appelé GARBAGE 
COLLECTION, il s’agit d’une sorte de réorganisation de la mémoire qui 
réorganise la mémoire de chaînes de caractères. Il peut se produire dans 
ce cas que le buffer disquette soit victime de cette réorganisation, 
Lorsque le buffer est décalé par la Garbage Collection, le nom de fichier 
ne peut plus être lu correctement, La petite routine suivante vous permet 
de remédier à cet inconvénient: 


OPENOUT“Dummy 


MEMORY HIMEM-1 
CLOSEOUT 
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Il est conseillé de placer cette instruction au début de chaque programme 
qui travaille avec la disquette, Vous devez utiliser cette instruction 
avant de définir la première variable alphanumérique. Le buffer de 4096 
octets est créé D'AVANCE et cette zone est protégée avec l'instruction 
MEMORY. A partir de ce moment, le buffer disquette ne pourra plus être 
détruit par la Garbage Collection car il sera protégé par l'instruction 
MEMORY. 


Le nom “Dummy” dans l'instruction OPENOUT ne désigne pas dans ce cas un 
fichier (puisque rien n'y sera écrit) mais il correspond dans le langage 
technique informatique à une sorte de “poubelle électronique”, 
L'instruction OPENOUT"Dummy” a en fait pour effet de créer le buffer de 
4096 octets dont nous avons parlé, La variable système HIMEM est alors 
diminuée de façon à ce que le buffer soit protégé des variables, Après un 
CLOSEOUT, HIMEM serait à nouveau relevé, mais pour éviter cela 
l'instruction MEMORY a été employée. 


Si donc vous avez obtenu un message d'erreur en faisant exécuter notre 
programme d'exemple qui ne contenait pas encore cette routine, ajoutez la 
ligne 40 suivante: 


4O OPENOUT"Dummy” : MEMORY HIMEM-1 : CLOSEOUT 


Le risque existe maintenant encore que l'utilisateur entre un nom de 
fichier incorrect ce qui entraînerait l'interruption du programme. Mais 
cela peut également être évité, par exemple en créant un fichier dans 
lequel seront enregistrés tous les noms de fichier; ce serait en fait un 
"catalogue privé”, Nous appellerons ce fichier “Filename.dir”. 


OPENOUT"Filename.dir" 
PRINT#9, “Test” 
CLOSEOUT 


Notre catalogue privé ne contient pour le moment que l'entrée “Test”. 


Nous n'avons plus maintenant qu'à intégrer encore cette routine de test 
et un message d'erreur sera exclu, 
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REM =======pp22m=22ccs2es2eosesssesses 


RE 

OPENOUT"Dummy":MEMORY HIMEM-1:CLOSEOUT 
INPUT"Nom du fichier: ";files 

GOSUB 1000 

IF trouve=0 THEN 50 

OPENIN files+".inf" 
INPUT #9,enregistrements, champs 
CLOSEIN 


DIM d5(200, champs) 


OPENIN file$+".dat" 

FOR i=1 TO enregistrements 
FOR j=1 TO champs 
INPUT#9,d${i,j) 

NEXT j 

NEXT i 

CLOSEIN 


0 REM Tester si nom autorise 

O0 REM ====szzzzszessssseesesesessssss 
0 OPENIN'Filename.dir" 

0 trouve=0 

O0 WHILE NOT EOF AND trouve=0 

0  INPUT#9, nom$ 

0 IF nom$=files THEN trouve=1 

O0 WEND 

0 CLOSEIN 

0 RETURN 
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Un tel test où un test semblable est indispensable pour qu’un programme 
soit d'un usage pratique. Les entrées erronnées devraient, autant que 
possible, toujours être identifiées et écartées,. 


Il n'est possible d'ouvrir qu’un SEUL canal d'entrée et un SEUL canal de 
sortie, Vous pouvez donc ouvrir au maximum deux canaux en direction du 
lecteur de disquette. 


Dans la sous-routine commençant en ligne 1030, on teste s'il existe un 
fichier portant le nom file$. À cet effet, toutes les entrées du fichier 
“Filename.dir” sont comparées à la variable file$, Si la routine 
rencontre la fin du fichier sans avoir trouvé le nom recherché, la 
variable “trouve” vaut 0. En cas de succès, cette variable est mise sur 
1, Cette valeur peut alors être testée dans le programme principal qui 
réagira comme il convient. 


Si vous voulez par exemple écrire vous même un programme de gestion 
d'adresses pratique, nous ne pouvons que vous conseiller d'intégrer de 
telles routines de protection. 


Cela suppose bien sûr que le fichier “Filename.dir” existe; si ce n'est 
pas le cas, un message d'erreur “File not found” sera sorti, Pour éviter 
cela, on pourrait prévoir un point du menu qui pourrait s'appeler 
“Initialisation” et qui créerait ce fichier. 


Toutes ces “astuces” sont contenues dans un petit programme de gestion de 
fichier que vous trouverez au chapitre 5 de cet ouvrage. Nous vous 
conseillons d'étudier les passages correspondants de ce programme de 
façon à ce que vous compreniez bien la manipulation de ces routines, 


1.5.4 DIFFERENCES ENTRE PRINT# ET WRITE# 


Nous avons jusqu'ici utilisé uniquement l'instruction PRINT#. Vous avez 
cependant certainement déjà vu, aussi bien dans le manuel d'utilisation 
que dans le présent ouvrage, qu'il existe aussi une instruction WRITE#. 


Dans nos programmes d'exemple c'est le Carriage Return qui était utilisé 
comme marque de séparation, Vous vous souvenez cependant certainement que 
le Carriage Return n'est pas le seul symbole de séparation et que la 
virgule (,) fait également office de symbole de séparation, aussi bien 
pour les chaînes de caractères que pour les données numériques. Pour les 
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données numériques il est en fait sans importance que la séparation soit 
faite avec des virgules, des Carriage Return ou même des espaces. Par 
contre, avec les chaînes de caractères, cela peut avoir un certain nombre 
d'effets désagréables. Essayez l'exemple suivant: 


50 OPENOUT"Demo" 

60 PRINT#9, "Chalet, Lucienne" 
70 PRINT#9,"Lefol,Charles" 
80 CLOSEOUT 

90 : 


140 OPENIN'"'Demo" 

150 INPUT#9, Nomi$ 

160 INPUT#9, Nom2$ 

170 CLOSEIN 

180 PRINT'Nomi = "Nomis 
190 PRINT"'Nom2 = "Nom2$ 
200 END 


Vous vous attendez certainement à ce que la sortie sur l'écran se 
présente ainsi: 


Noml=Chalet, Lucienne 
Nom2=Lefol, Charles 


Certains d'entre vous le savent certainement déjà: le résultat produit ne 
se présente malheureusement pas ainsi, Si vous lancez le programme, vous 
pouvez constater ce phénomène mystérieux: 


Nomi=Chalet 
Nom2=Lucienne 


Vous Voyez très nettement d'après cet exemple que la virgule fait office 


de symbole de séparation et que cela a entraîné avec l'instruction 
INPUT#Q une séparation entre les deux chaînes de caractères. D'autre 
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part, il manque la virgule de la chaîne de caractères ainsi que l'espace 
devant “Lucienne”. La solution de ce problème est très simple: quand on 
utilise l'instruction WRITE#, une chaîne à sortir est placée entre 
guillemets. Lors de la lecture de cette chaîne tous les espaces, même 
placés au début, ainsi que toutes les virgules seront acceptés dans la 
chaîne. Seuls les guillemets ne seront pas et n’ont pas à être acceptés 
dans la chaîne. 


Vous pouvez maintenant faire sortir sur l'écran différentes valeurs pour 
mieux comprendre le mode de fonctionnement de cette instruction, Entrez 
par exemple: 


WRITE 1,2,"Oui,oui,c'est comme ca.”,3 
Sur l'écran apparaît: 
1,2,"Oui,oui,c'est comme ca.",3 


Si vous faites sortir le même texte avec l'instruction PRINT, l'image 
suivante apparaît sur le moniteur: 


1,2 Oui,oui,c'’est comme ca, 3 


En effet, comme vous le savez, la virgule a pour effet avec l'instruction 
PRINT de faire sauter le tabulateur à la prochaine tabulation, de sorte 
que des espaces vides importants apparaissent, L'écriture sur disquette 
s'effectue exactement comme sur l'écran, c'est-à-dire que les espaces 
vides correspondants sont également écrits sur la disquette (ce qui 
d'ailleurs constitue un gaspillage de la place mémoire disponible). 


On peut cependant aisément constater que la chaîne n'est plus traitée 
comme une chaîne unique, à cause des virgules. Avec l'instruction WRITE, 
les guillemets marquent le début et la fin de la chaîne de façon 
parfaitement claire. 


Un effet secondaire appréciable est l'économie de place mémoire sur la 
disquette lorsqu'on veut sauvegarder des variables numériques. 


On pourrait également reconstituer l'instruction WRITE avec l'instruction 
PRINT: 


PRINT 1°,":2;","chr$(34);"Oui,oui,c'est comme ca,”;chr$(34);","; 
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Le résultat sur l'écran ou sur la disquette sera identique avec cette 
façon d'écrire et l'on obtiendra également en lecture l'effet recherché. 
Mais l'instruction WRITE est plus simple et plus pratique et c'est 
pourquoi il est recommandé d'y avoir recours le plus souvent possible. 
Elle est particulièrement pratique lorsqu'on veut écrire plusieurs champs 
de données en une ligne Basic sur la disquette. Comme vous pouvez le 
constater d'après le programme d'exemple, nous avons stocké sur la 
disquette un seul champ de données par ligne PRINT# et ainsi, comme aucun 
point-virgule ne figure à la fin de l'instruction PRINT#, nous avons fait 
envoyer un Carriage Return comme symbole de séparation. Avec 
l'instruction WRITE, notre programme devient donc plus court et plus 
clair, Il se présente maintenant ainsi: 


10 REM ======mmmme22eeoemeseceesrense 
20 REM EXEMPLE POUR WRITE # 

30 REM =s=2s=scerecs=rcsccesscessergegse 
40 : 

50 OPENOUT "Demo" 

60 WRITE#9, "Chalet Lucienne" 

70 WRITE#9,"Lefol,Charles" 

80 CLOSEOUT 

90 : 

100 REM ====-=z===222z=s=222=2zs2sszssszsezzzs 
110 REM ET LIRE A NOUVEAU 

120 REM ======2==222=22zsesezseszssz2ss 
130 : 

140 OPENIN"Demo" 
150 INPUT#9,Nomi$ 
160 INPUT#9, Nom?$ 
170 CLOSEIN 

180 PRINT"'Nomi = "Nomli$ 
190 PRINT'Nom2 = 

200 END 


Après avoir lancé le programme, vous constatez que nous sommes maintenant 
arrivé au résultat voulu, 


Après une instruction PRINT# ou WRITE# une marque de séparation est donc 
AUTOMATIQUEMENT envoyée qui est le Carriage Return, II y a cependant des 
cas où cet automatisme peut être gênant, par exemple lorsque vous voulez 
effectuer des opérations sur les chaînes de caractères pour ne les sortir 
que plus tard. Nous allons maintenant sortir tout l'alphabet en ne 
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résolvant pas cependant ce problème avec une simple instruction PRINT# 
mais en programmant une boucle. 


50 OPENOUT "Demo" 
60 FOR i=1 TO 26 
70 PRINT#9,CHRS(64+i) 
80 NEXT i 

90 PRINT#9 

100 CLOSEOUT 

110 OPENIN"Demo" 
120 INPUT#9, a$ 
130 PRINT a$ 

140 CLOSEIN 

150 END 


Nous définissons en ligne 60 une variable de boucle i, qui comptera de 1 
à 26. L'alphabet a en effet 26 lettres. Le code ASCII de "A" est 65, de 
sorte que nous pouvons calculer en ligne 70 le code ASCII du caractère à 
sortir en ajoutant la valeur actuelle de la variable de boucle au 
décalage 64, L'important est ici que le dernier caractère en ligne 70 
soit un point-virgule, Exactement comme en Basic lorsqu'on effectue une 
sortie sur écran, le point-virgule a pour effet sur la disquette 
qu'aucune “fin de champ“ n'est envoyée, de même qu'à l'écran il 
manquerait la “fin de ligne”. 


Après avoir lancé le programme, nous voyons que la variable a$ contient 
tout l'alphabet. Cela met bien en évidence la signification du point- 
Virgule, Dans cet exemple, il ne faut en aucun cas utiliser l'instruction 
WRITE car la sortie sur écran se présenterait alors ainsi: 
HA“"B""C""D"'"/E""E""C" "4H" ns LA LRU Ai 

alors que nous obtenons dans notre exemple le résultat suivant: 


ABCDEFGH..,,YZ* 


(* réprésente à nouveau le Carriage Return) 
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Vous voyez qu'on doit se demander pour chaque application laquelle des 
deux instructions convient le mieux. Il est souvent indifférent que vous 
utilisiez PRINT#9 ou WRITE#9. WRITE#9 est parfois plus intéressant, mais 
parfois aussi cette instruction est totalement inadaptée, comme dans 
l'exemple que nous venons de donner. 


Essayez de deviner quelle valeur la variable a$ aurait si on remplaçait 
la ligne 70 par: 


70 WRITE#9,CHR$(i+64); 


Lorsque vous penserez avoir trouvé la solution, modifiez la ligne et 
lancez le programme, Aviez-vous prévu juste? Vous pouvez maintenant 
passer au chapitre suivant. 


1,5,5 DIFFÉRENCES ENTRE INPUT# ET LINE INPUT# 


Vous connaissez maintenant les différences qu'il y a entre PRINT#9 et 
WRITE#9, Pour la lecture des données, il existe également deux 
instructions différentes: l'instruction normale INPUT#9 que nous avons 
toujours utilisée jusqu'ici, et l'instruction LINE INPUT#9, Ici aussi il 
y a des différences essentielles. 


Nous nous limiterons, dans notre comparaison entre INPUT et LINE INPUT, 
aux variables alphanumériques, Les symboles de séparation peuvent être: 
le retour de chariot, la virgule et la marque EOF, Nous ne pouvons donc 
lire, avec INPUT#9, aucune chaîne contenant une virgule (sauf bien sûr si 
cette chaîne avait été placée entre guillemets) car cette virgule sera 
automatiquement interprétée comme une marque de séparation. Il en résulte 
un autre problème: Jorsque les guillemets marquent une chaîne, comment 
puis-je alors lire ces guillemets? Il est impossible de lire les 
guillemets dans une chaîne avec INPUT, cela nous le savons. 


C'est ici qu’intervient l'instruction LINE INPUT, LINE INPUT lit tous les 
caractères; Seul le retour de chariot fait office de marque de 
séparation, les virgules et les guillemets sont donc également acceptés 
par LINE INPUT, 
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Lorsque vous utilisez l'instruction: 
WRITE#9,1,2,"Oui,oui, c'est comme ca,”,3 
pour écrire sur la disquette et que vous relisez cela avec: 
LINE INPUT#9, tout$ 
la variable tout$ contiendra: 
1,2,"Oui,oui, c'est comme ca.",3 


TOUS les symboles de séparation sans exception ont donc été acceptés dans 
la chaîne, les guillemets y compris. 


LINE INPUT n'est pas toujours supérieur à l'instruction INPUT: cela 
pourrait même le plus souvent avoir des conséquences catastrophiques si 
vous remplaciez simplement, dans un programme existant, INPUT#9 par LINE 
INPUT#9, Vous vous rendez certainement compte que cela est lié au fait 
que les symboles de séparation sont alors ignorés. Si l'on ne tient pas 
compte dans l'instruction PRINT ou l'instruction WRITE du fait que la 
lecture se fera avec LINE INPUT, et donc si l'on n'utilise pas UNIQUEMENT 
le retour de chariot comme marque de séparation, on peut aboutir à des 
résultats assez surprenants. Lorsque vous écrivez vous-même un programme 
qui accède souvent à la disquette, réfléchissez bien avant de choisir 
quelles instructions vous utiliserez en écriture et en lecture. 


Mais voici maintenant encore un exemple où l'instruction LINE INPUT est 
indispensable parce qu'il s'agit de lire un fichier dont le contenu et la 
structure sont inconnus. 


Chargez un des programmes réalisés dans le présent ouvrage et 
sauvegardez-le immédiatement avec: 


OPENOUT"ASCII .DAT” 
LIST#9 
CLOSEOUT 


Vous avez maintenant sauvegardé le listing du programme sur la disquette, 
sous le nom de “ASCII.DAT”, Un fichier de programme normal ne peut pas 
etre ouvert en lecture avec l'instruction OPENIN car un tel fichier a un 
header (=une tête de fichier) qui n'est pas accepté par l'instruction 
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OPENIN. Après que vous ayez donc LISTé un fichier de programme sur la 
disquette, entrez le petit programme suivant: 


NEW 


10 REM =======mmmnmme=csseceenensesee 
20 REM LECTURE D'UN FICHIER QUELCONQUE 
90 REM =======-7=2=2e2m=crc22ccsecezzs 
40 : 

50 OPENIN'ASCII. dat" 

60 WHILE NOT EOF 

70 LINE INPUT#9, lignes 

80 PRINT lignes 

90 WEND 

100 CLOSEIN 

110 END 


Cette routine affiche le listing de votre programme sur l'écran avec tous 
les guillemets et toutes les virgules, comme dans le programme original. 
Pour des tâches semblables, l'instruction LINE INPUT est parfaitement 
appropriée puisqu'elle va chercher sans problème tous les caractères sur 
la disquette. 


Malheureusement le Basic de l'Amstrad ne permet pas de lire des 
caractères isolés dans un fichier ouvert en lecture, comme on peut le 
faire dans d'autres version du Basic, sur d'autres ordinateurs. Cette 
possibilité aurait bien sûr l'avantage de rendre possible de lire y 
compris le caractère RETOUR DE CHARIOT, Il existe cependant dans le DOS 
une routine DISC IN CHAR que vous pouvez utiliser à cet effet (voir 
également le listing du DOS) mais uniquement en langage machine. Vous 
pouvez ainsi écrire une routine adaptée à votre problème qui transmette 
le caractère lu à votre programme Basic. 


Voici une petite routine qui simule en Basic l'instruction GET. Lorsque 
vous appelez cette routine, le fichier doit être ouvert en lecture. 
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10000 REM ===2:=-====2=2=22=2222252-=2222285 
10010 REM ROUTINE GET 

10020 REM ==-=-=====2=2=222==22==22222222822z 
10030 : 

10040 IF LEN(in$)=0 THEN 10080 

10050 chS$=LEFTS(ins,1) 

10060 in$=MIDS(in$,2) 

10070 RETURN 

10080 IF EOF THEN CLOSEIN:ch$="". RETURN 
10090 LINE INPUT#9, ins 

10100 IF NOT EOF THEN in$=ins+CHR$(13) 
10110 GOTO 10050 


Le caractère lu vous est transmis dans la variable ch$, le retour de 
chariot est maintenant lui aussi un caractère autorisé. Lorsque le 
dernier caractère a été lu, ch$ est vide et LEN(Ch$) vaut donc zéro. 


Si vous voulez lire à l'écran des valeurs numériques, vous utilisez le 
plus souvent l'instruction: 


10 INPUT valeur 


Si vous entrez maintenant un caractère qui n'est pas un nombre, le 
système répond par: 


?Redo from start 


AMSDOS ne peut bien sûr pas sortir un tel message d'erreur. Certains 
systèmes envoient dans ce cas une FILE TYPE ERROR, ce qui signifie: une 
chaîne de caractères a été transmise au lieu d'une valeur numérique. 
AMSDOS ne sort aucun message d'erreur mais effectue DE FACON INTERNE le 
calcul suivant: 


10 INPUT#9,a$:valeur-=val(a$) 
On voit nettement ici pourquoi le caractère espace fait également office 
de symbole de séparation pour les nombres, En outre, chaque caractère non 


numérique fait office de symbole de séparation, à l'exception de “E* ou 
"e" qui est utilisé pour l'écriture exponentielle des nombres, 


- 75 - 


CHAPITRE 2: PROGRAMMATION AVANCEE DE LA DISQUETTE 


2,1 LES VECTEURS DU DOS 


Après que les chapitres précédents vous aient décrits de façon détaillée 
les possibilités d'AMSDOS et de CP/M pour une utilisation “normale”, vous 
découvrirez dans les chapitres suivants un certain nombre de notions sur 
le mode de travail du DOS et sur l'utilisation du DOS en langage machine. 
Les chapitres suivants s'adressent donc essentiellement aux lecteurs qui 
disposent de certaines connaissances de base sur la programmation en 
langage machine du Z80, Si ces connaissances vous manquent, un certain 
nombre de notions développées dans les pages suivantes vous sembleront 
incompréhensibles, Mais n'abandonnez pas pour autant la lecture de cet 
ouvrage, Même si un certain nombre de choses vous semblent obscures au 
départ, vous pourrez néammoins utiliser beaucoup des informations qui 
vous sont fournies dans les pages suivantes, 


On peut distinguer trois niveaux principaux de programmation en langage 
machine du lecteur de disquette du CPC, Le niveau supérieur de 
programmation est le plus simple à comprendre, À ce niveau, toutes les 
tâches essentielles sont accomplies par le DOS. Il s'agit au fond des 
équivalents en langage machine des instructions Basic que vous connaissez 
déjà depuis le chapitre précédent, 

Le second niveau de programmation en langage machine de la disquette est 
un niveau qui serait impensable sans un listing de la ROM bien commenté. 
À ce niveau on dispose de routines dont certaines sont très simples mais 
dont d'autres aussi sont très complexes, Ces routines vont de la simple 
mise en marche du moteur du lecteur de disquette à la lecture et à 
l'écriture de données sur la disquette, Nous décrirons les plus 
importantes routines du DOS car on peut grâce à elles réaliser un certain 
nombre de choses très intéressantes qui sont impossibles à réaliser à 
partir du Basic. 

La troisième possibilité de programmation du lecteur de disquette 
représente ce qu’on pourrait qualifier de programmation ‘à pied’. Seuls 
quelques spécialistes se risqueront à ce niveau car il faut alors 
programmer directement les fonctions du disc controller, Mais comme les 
fonctions essentielles se trouvent déjà sous une forme où sous une autre 
dans le DOS, cette programmation peut se limiter à quelques cas 
particuliers. Nous évoquerons également ce niveau de programmation et 
nous décrirons largement les possibilités du disc controller, 
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Mais commençons par les choses les plus simples. Ni le système 
d'exploitation du CPC 464 ni celui du CPC 664 ne sont conçus pour 
commander un lecteur de disquette. Le seul moyen de sauvegarde externe 
des données qu'ils connaissent est le lecteur de cassette. Ce n'est 
qu'avec la ROM AMSDOS que la commande du lecteur de disquette devient 
possible. Si cette ROM n'est pas disponible lors de la mise sous tension 
de l'ordinateur, les instructions LOAD, SAVE, OPENIN, OPENOUT, CAT et les 
instructions de manipulation des fichiers s'appliqueront au lecteur de 
cassette. Si par contre Ja ROM AMSDOS est disponible lors de 
l'initialisation du CPC, la situation change totalement et presque toutes 
les instructions qui s’appliquaient auparavant au lecteur de cassette 
agissent maintenant sur le lecteur de disquette, La seule exception est 
l'instruction SPEED WRITE puisque celle-ci n'a aucun effet sur le lecteur 
de disquette. 


Le principe des vecteurs qui a été utilisé par les développeurs du CPC 
revêt un aspect essentiel pour la souplesse d'utilisation. Au lieu 
d'appeler directement l'action, c'est-à-dire la routine du système 
d'exploitation voulue, cette routine est appelée à travers une adresse de 
la RAM à laquelle figure un saut à la routine système correspondante, Le 
fait que la routine soit appelée à travers un vecteur situé en RAM peut 
sembler inutile au premier abord, En réalité cependant, ce principe 
garantit la compatibilité entre différentes versions de système 
d'exploitation, Ce n'est qu'à travers ce détour qu’il devient possible 
que des programmes machine puissent tourner aussi bien sur le 464 que sur 
le 664 bien que les deux ordinateurs possèdent des systèmes 
d'exploitation très différents à certains égards. Tant que les vecteurs 
figurent aux mêmes emplacements de la RAM et que les routines 
correspondantes remplissent des fonctions identiques, on peut 
entreprendre pratiquement n'importe quelles modifications du système 
d'exploitation. La compatibilité reste garantie. Un autre point très 
important est qu’on a en tant que programmeur toutes les cartes en main. 
Il n'est certes pas possible de modifier les routines de la ROM mais 
comme les vecteurs figurent en RAM ils peuvent être sans problème 
“détournés’ sur les routines propres de l'utilisateur. Il est ainsi 
possible de modifier si nécessaire toutes les fonctions appelées à 
travers les vecteurs, 

C'est exactement ce qui se produit lorsque le lecteur de disquette est 
connecté. Dans le CPC, 22 vecteurs sont prévus pour commander le lecteur 
de cassette, 13 de ces vecteurs sont modifiés pour le travail avec la 
disquette, c'est-à-dire que les adresses des routines à appeler sont 
modifiées. A travers ces 13 vecteurs sont appelées à partir du Basic 
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toutes les fonctions du lecteur de disquette, Mais ces vecteurs peuvent 
etre également parfaitement utilisés en langage machine, Voici maintenant 
une présentation des vecteurs modifiés, Les noms employés correspondent à 
ceux du CPC 464 Firmware Manual, 


&BC77 CAS IN OPEN ouvre un fichier en lecture 

8&BC/A CAS IN CLOSE ferme correctement un fichier ouvert en lecture 

8&BC/D CAS IN ABANDON ferme immédiatement un fichier ouvert en lecture 

8&BC80 CAS IN CHAR retire un caractère d'un fichier d'entrée 

8BC83 CAS IN DIRECT lit et place entièrement dans la mémoire un 
fichier d'entrée 

8BC86 CAS RETURN le dernier caractère est réécrit 

8BC89 CAS TEST EOF teste si la fin du fichier est atteinte 

8BC8C CAS OUT OPEN ouvre un fichier en écriture 

&BC8F CAS OUT CLOSE ferme correctement un fichier ouvert en 
écriture 

8BC92 CAS OUT ABANDON ferme immédiatement un fichier ouvert en 
écriture 

8BC95 CAS OUT CHAR écrit un caractère dans un fichier de sortie 

8&BC98 CAS OUT DIRECT écrit entièrement une zone de la mémoire dans un 
fichier 

8BC9B CAS CATALOG fonction identique à celle de l'instruction 
Basic CAT 


Une fois que vous aurez lu cette table, nous vous conseillons d'oublier 
bien vite les noms utilisés ici. Il nous semble en effet vraiment 
illogique de désigner par CAS des routines utilisées avec le lecteur de 
disquette. Nous remplacerons toujours par la suite CAS par DISK, Le nom 
correspond ainsi à la fonction. 


2,1,1 DISK IN OPEN &BC77 


Avant que des données puissent être lues dans un fichier, ce fichier doit 
etre ouvert, L'ouverture d'un fichier est prise en charge par la routine 
DISK IN OPEN, Il est à cet égard indifférent que le fichier à lire soit 
un fichier ASCII ou un programme. Cette routine doit être de toute façon 
appelée une fois, 

Pour lire le fichier, certains paramètres sont bien sûr attendus, Le 
paramètre le plus important est le nom du fichier. Avec toutes les 
routines DISK, des paramètres sont transmis à travers les registres. Mais 
comme un nom de fichier se compose de 8 caractères plus 3, le nom ne peut 
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etre entièrement transmis à travers les registres. Le registre double 
reçoit donc l'adresse à laquelle le nom de fichier figure en mémoire. Le 
nom de fichier peut se trouver n'importe où dans la RAM, y compris dans 
la partie de celle-ci qui se chevauche avec la ROM, par exemple dans les 
16 premiers K de la mémoire du CPC. 

Un autre paramètre, qui doit lui être transmis à la routine à travers le 
registre B, est constitué par la longueur du nom de fichier. Cela est une 
propriété très agréable de DISK IN OPEN puisque vous n'êtes pas ainsi 
obligé d'amener vous même le nom de fichier à une longueur prédéterminée. 
Vous pouvez ainsi entrer des noms de fichier ayant par exemple 4 
caractères pour le nom et 2 pour l'extension (le type de fichier). La 
routine complètera elle-même le nom ainsi fourni de façon à ce qu’il 
atteigne la longueur requise. Mais n'oubliez jamais d'indiquer également 
la longueur de l'extension. 

Un troisième paramètre est attendu par la routine DISK IN OPEN dans le 
registre double DE, Vous devez fournir ici l'adresse d’un buffer long de 
2048 octets, Les données à lire seront écrites dans ce buffer, Il n'y a 
pas ici non plus de limites concernant la situation de ce buffer dans la 
mémoire, 

Après que les trois paramètres aient été transmis aux registres que nous 
avons indiqués, la routine peut être appelée, Voyons un exemple d'un tel 
appel, Nous allons ouvrir le fichier ‘TEST,.DAT’ en lecture. Programmée en 
assembleur, la séquence d'instructions se présente ainsi: 


100 LD HL, FILNAM adresse du nom 
110 LD B, BUFF-FILNAM ;longueur du nom 
120 LD DE, BUFF :adresse du buffer 
130 CALL  DISK-IN-OPEN 

140 RET 

150 FILNAM: DEFM 'test.dat'’ 3nom du fichier 
160 BUFF: DEFS 80800 :place pour 2K 


Mais que fait exactement cette routine et quels résultats produit-elle? 
Elle contrôle tout d'abord si le nom de fichier correspond à certaines 
règles formelles, C'est ainsi que certains caractères sont interdits dans 
le nom de fichier, Si un de ces caractères est rencontré, l'instruction 
est interrompue. Le nombre de caractères dans le nom de fichier ne doit 
pas non plus être supérieur à 15, Ce nombre comprend le numéro user, le 
numéro de drive avec le double point, 8 caractères pour le nom de 
fichier, le point de séparation et trois caractères d'extension. Un tel 
nom de fichier pourrait être par exemple: “OA:FILENAME DAT”, 

En même temps que le nom de fichier est contrôlé, toutes les lettres 
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minuscules sont changées en majuscules, Les noms de fichiers plus courts 
sont complétés jusqu’à la longueur requise avec des caractères espace, 
Après ce contrôle du nom de fichier, on examine s'il existe bien sur la 
disquette un fichier portant ce nom. S’il n’y a pas sur la disquette de 
fichier portant ce nom, par exemple parce que le nom a été mal ou 
incomplètement entré, AMSDOS annonce ‘Filename not found’. C'est 
également ce message d'erreur que vous obtenez lorsque vous voulez 
charger un programme qui ne figure pas sur la disquette qui a été placée 
dans le lecteur, 

Indépendamment du fait que le fichier figure ou ne figure pas sur la 
disquette, vous obtenez en tout cas dans les registres, après avoir 
appelé la routine, un certain nombre de paramètres importants en retour, 
Tout d'abord l'état des flags Carry et Zéro indique si le DISK IN OPEN a 
réussi. À cet effet, le flag Carry est mis et le flag Zéro est annulé si 
l'OPEN a réussi, Si par contre le Carry et le Zéro sont tous deux 
annulés, c'est que vous avez tenté d'ouvrir en lecture un deuxième 
fichier. Vous aviez donc déjà ouvert un fichier. La troisième possibilité 
est que le flag Zéro soit mis mais que le Carry soit annulé. Dans ce cas, 
le fichier indiqué n’a pas été trouvé, 

Si l'OPEN a réussi, la valeur de l'accumulateur permet de déterminer le 
type de fichier, S'il s'agit par exemple d'un programme Basic, 
l'accumulateur contiendra après la routine OPEN la valeur 0, Une valeur 
de 816 signifie que le fichier ouvert est un fichier ASCII. Vous 
trouverez les autres valeurs possibles, sous forme de table, sous DISK 
OUT OPEN, 

Le double registre HL contient après ouverture du fichier l'adresse du 
header de fichier. La notion de header de fichier ne vous est 
certainement pas encore familière, c'est pourquoi nous allons l'expliquer 
brièvement ici, Mais c'est sous DISK OUT OPEN que vous trouverez une 
description détaillée de la structure du header de fichier, Le header de 
fichier contient une somme d'informations sur le fichier correspondant, 
C'est ainsi qu’il contient le nom du fichier, le type de fichier, la 
longueur du fichier ainsi que l'adresse à partir de laquelle le fichier a 
été écrit. Presque tous les fichiers qui sont sauvegardés sur la 
disquette, donc aussi les programmes Basic et les programmes machine, 
sont sauvegardés avec ces informations. La seule exception est constituée 
par les purs fichiers ASCII pour lesquels le header n'est pas sauvegardé 
avec le fichier mais produit par AMSDOS,. Vous obtenez une autre 
information dans le registre double DE, Ici vous est communiquée 
l'adresse de départ du fichier. Cette information n'a bien sûr de sens 
que s'il s'agit d'un fichier de programme. Si le fichier ouvert est un 
programme Basic, la valeur contenue par DE est normalement de 80170. Pour 
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les programmes machine, DE contient l'adresse à partir de laquelle le 
programme a été écrit, 

Enfin le registre double BC vous fournit comme dernière information la 
longueur du fichier. Il faut noter ici à nouveau que cette information 
n'est pas fournie pour les purs fichiers ASCII. Les fichiers ASCII 
peuvent être notablement plus longs que les 64K qu’un registre double 
permet seuls de représenter, Cette information n'a d'ailleurs de sens que 
pour le chargement des programmes. 


2.1.2 DISK IN CLOSE &BC7A 


Après que cette routine ait été appelé, un fichier ouvert en lecture sera 
fermé, Il n'est plus possible de lire dans ce fichier. DISK IN CLOSE est 
essentiellement requis lorsqu'il s'agit de lire des données dans un 
deuxième fichier, On ferme alors d'abord le fichier ouvert avec DISK IN 
CLOSE avant d'ouvrir en lecture le nouveau fichier avec DISK IN OPEN, 

Si vous voulez absolument le savoir, vous pouvez déterminer, après avoir 
appelé cette routine et d'après le flag Carry, si un fichier était bien 
ouvert en lecture, Si le Carry est mis, c'est qu’un fichier était ouvert, 
Cette routine ne nécessite pas d’autres paramètres puisque pour le moment 
il ne peut jamais y avoir qu’un seul fichier d'entrée ouvert. 


2.1.3 DISK IN ABANDON &BC/D 


Cette routine remplit presque la même tâche que DISK IN CLOSE, Après DISK 
IN ABANDON aussi, un fichier d'entrée ouvert sera fermé. Cette routine 
est essentiellement conçue pour fermer le fichier en cas d'erreur, DISK 
IN ABANDON est également appelée par l'interpréteur Basic avant tout 
LOAD, SAVE ou CAT. Cela signifie que les fichiers ouverts sont toujours 
fermés après exécution d'une de ces instructions. 


2.1.4 DISK IN CHAR &BC80 


AMSDOS connaît fondamentalement deux méthodes différentes pour lire dans 
un fichier. La première méthode consiste à appeler la routine DISK IN 
CHAR, qui retire un caractère (CHARacter) du fichier. Cette routine ne 
nécessite pas non plus de paramètres puisqu'un seul fichier d'entrée peut 
etre ouvert. 

Le caractère lu dans le fichier est transmis à travers l'accumulateur. En 
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outre, les flags Carry et Zéro signalent si la routine a été exécutée 
correctement, Si un caractère a bien été retiré du fichier, le Carry est 
mis alors que le flag Zéro est annulé. Si vous essayez cependant de lire 
un caractère d'un fichier non ouvert, vous obtiendrez comme marque 
d'erreur les états Carry annulé, Zéro annulé. En outre le message 
d'erreur &0E figurera dans l'accumulateur, Cette marque indique que le 
fichier d'entrée n’était pas ouvert comme on s'y attendait. 

D'autre part, si vous êtes arrivé à la fin du fichier, les flags seront 
tous deux annulés comme précédemment mais c'est la valeur &14, la marque 
de END OF FILE, que vous obtiendrez dans l'accumulateur. 

Les messages d'erreur possibles vous sont présentés à la fin du présent 
chapitre. 

La lecture de données avec DISK IN CHAR ne peut s'effectuer que de façon 
séquentielle. Si vous avez par exemple lu le 100ème caractère d'un 
fichier mais que vous vouliez accéder à nouveau au dixième caractère, il 
vous faut fermer le fichier puis le réouvrir. 


2.1.5 DISK IN DIRECT &8BC83 


Comme nous l'avons déjà indiqué, AMSDOS offre deux possibilités de 
lecture des fichiers, Vous connaissez déjà la première méthode avec la 
routine DISK IN CHAR. DISK IN DIRECT représente la deuxième forme 
possible d'accès aux données d'un fichier, Contrairement à DISK IN CHAR, 
cette routine permet de lire et de placer dans la mémoire un fichier 
entier. L'application principale de cette routine est bien sûr le 
chargement de zones de la mémoire sauvegardées auparavant, C'est à 
travers cette routine que sont chargés les programmes Basic et les 
programmes machine. 

Contrairement à DISK IN CHAR, DISK IN DIRECT exige un paramètre, Il 
s'agit de l'adresse de chargement du bloc de données. Cette adresse doit 
etre transmise à travers le registre HL, 


100 LD  HL,BUFFER :adresse de départ pour les données 
110 CALL DISK IN DIRECT 

120 RET 

130 BUFFER  EQU $ sc'est ici que sont placées les 


données lues 


Après appel de DISK IN DIRECT les flags indiquent de la façon qui nous 
est déja familière si la routine a été ou non couronnée de succès. Carry 
mis/Zéro annulé signifie ici aussi que les données ont été lues 


correctement. Les messages d'erreur possibles sont les mêmes que pour 
DISK IN CHAR. On obtient en outre dans le registre double HL, après appel 
de cette routine, ce qu'on appelle l'adresse ENTRY, fournie par le header 
de fichier, Veuillez voir sous DISK OUT OPEN quelle est la signification 
de cette adresse. 


Il faut encore relever un certain nombre de particularités concernant les 
deux possibilités d'accès aux données d'un fichier, D'une part 
l'utilisation de ces deux routines est entièrement libre. Contrairement à 
ce qui est le cas en Basic, il est donc possible de lire aussi un 
programme avec DISK IN CHAR. Mais si un caractère d'un fichier d'entrée a 
déjà été lu avec DISK IN CHAR, le reste ne peut plus être Iu et placé 
dans la mémoire avec la routine DIRECT, Inversement il n’est pas possible 
de continuer avec la routine CHAR la lecture d'un fichier commencée avec 
la routine DIRECT, sans compter qu'après DIRECT on a de toute façon 
atteint la fin du fichier. Il est d'autre part déconseillé de lire une 
seconde fois un fichier qui a été lu avec DISK IN DIRECT, Vous risqueriez 
en effet de détruire les données en mémoire. 
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2.1.6 DISK RETURN &BC86 


Nous avons dit pour DISK IN CHAR qu'un fichier ne peut étre traité que de 
façon séquentielle et cette affirmation est juste en principe, Avec DISK 
IN CHAR il est cependant possible de lire des caractères plus d'une fois. 
Avec DISK RETURN le caractère lu en dernier est réécrit dans le buffer et 
est à nouveau disponible pour la lecture, Si les 20 premiers caractères 
du fichier ont été Ius, après avoir appelé 20 fois DISK RETURN, le 
prochain DISK IN CHAR lira à nouveau le premier caractère, Cette 
possibilité a toutefois ses limites. Le retour en arrière n'a été en 
effet prévu à l'origine que pour un seul caractère. 

Un exemple illustrera où se situent les limites de cette routine. Dans 
cet exemple nous imaginerons un fichier de 4000 caractères, Après avoir 
lu 2048 caractères avec DISK IN CHAR, le buffer que nous avons défini 
avec DISK IN OPEN est vide, nous avons lu tous les caractères qu'il 
contenait. Lors de l'accès au prochain caractère, le 2049ème, le buffer 
sera rempli de nouvelles données à partir de la disquette. Si nous avons 
maintenant lu ce 2049ème caractère et que nous appelions la routine DISK 
IN RETURN plus d'une fois, il faudrait normalement que les 2048 premiers 
octets soient à nouveau chargé dans le buffer. Ce n'est cependant pas ce 
qui se produit, Au lieu de cela, le pointeur sur le prochain caractère à 
lire quitte la zone du buffer, de sorte que les caractères lus par la 
suite n'ont plus rien à voir avec le contenu du fichier. 


DISK RETURN ne doit donc comme vous le voyez être utilisé que de façon 
très limitée. L'application principale de cette routine est le contrôle 
sélectif d'un caractère isolé, C'est ainsi que DISK RETURN est également 
utilisé pour tester le critère EOF 81A. 


2.1.7 DISK TEST EOF &BC89 


Cette routine vous permet de déterminer si vous avez atteint la fin du 
fichier. Le prochain caractère du fichier est 1u à cet effet avec DISK IN 
CHAR et on teste s'il vaut &1A, soit 26 en décimal. Si la valeur du 
caractère lu n’est pas 26, le caractère est ensuite réécrit dans le 
buffer avec DISK RETURN et la routine renvoie un flag Carry mis et un 
flag Zéro annulé, Si par contre la valeur 81A a été trouvée, les flags 
Carry et Zéro sont annulés, 

Cette routine ne peut être utilisée que lors d'une lecture caractère par 
caractère d'un fichier car cette routine utilise elle-même la routine 
DISK IN CHAR, Or l'utilisation de cette dernière routine est interdite 
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avec DISK IN DIRECT et entraîne des messages d'erreur. 


2.1.8 DISK OUT OPEN &BC8C 


Toutes les routines décrites précédemment présupposent que des données se 
trouvent déjà sur la disquette, Les descriptions de routines suivantes 
vous montrent maintenant comment vous pouvez sauvegarder des données et 
programmes sur la disquette en langage machine. De même que pour la 
lecture de données, le fichier voulu doit également être ouvert avant 
toute opération d'écriture. L'ouverture se fait en appelant la routine 
DISK OUT OPEN. De même que pour la lecture, différents paramètres doivent 
‘etre transmis à la routine. 

Il y a tout d'abord le nom de fichier sous lequel les données pourront 
ensuite être retrouvées, L'adresse du nom voulu est transmise à travers 
le registre double HL, La longueur du nom et l'adresse d'un buffer de 
2048 octets doivent être transmis à travers le registre B et à travers le 
registre double DE, comme pour DISK IN OPEN. 


100 LD HL, FILNAM adresse du nom 

110 LD B, BUFF-FILNAM ; longueur du nom 

120 LD DE, BUFF :adresse du buffer 

130 CALL DISK-OUT-OPEN 

140 RET 

150 FILNAM: DEFM ‘test,.dat'’ snom du fichier 

160 BUFF: DEFS 80800 :place pour 2048 octets 


La validité du nom de fichier est d'abord contrôlée et le nom est 
complété si nécessaire pour comporter le nombre correct de caractères. 
L'extension est ensuite remplacée par trois caractères dollar et ce nom 
est alors cherché sur la disquette, Sous ce nom est en effet d’abord créé 
un fichier provisoire dans lequel l'extension originale ne sera entrée 
que plus tard, Un header de fichier est d'autre part créé dont l'adresse 
est mise après exécution de la routine à la disposition de l'utilisateur 
dans le registre double HL,. Cela suppose toutefois qu'aucune erreur ne se 
produise dans le DISK OUT OPEN. Vous pouvez tester ce fait comme toujours 
en examinant l'état du flag Carry. Si après exécution de cette routine le 
flag Carry est mis, c'est que tout est en ordre et que le fichier est 
ouvert en écriture, Si le Carry est par contre annulé, c'est qu'une 
erreur quelconque s’est produite. Les erreurs possibles sont par exemple 
des entrées incorrectes pour le nom de fichier. Les erreurs de lecture 
lors de l'examen du catalogue sont également annoncées comme erreurs. 
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Dans ce cas le contenu de HL est indéterminé. 

Mais considérons le cas où le fichier de sortie a été ouvert 
correctement, Nous recevons dans ce cas l'adresse du header de fichier 
dans le registre double HL, Nous allons maintenant examiner ce header de 
fichier un peu plus précisément, 

Le fichier n'est en fait rien d'autre qu'une zone de mémoire de 64 
octets. Ces 64 octets contiennent les données les plus importantes sur le 
fichier. La signification des différents octets du header sont identiques 
pour la lecture et l'écriture des données, La structure du header est par 
ailleurs identique à la structure du header pour le travail sur cassette. 
Les 16 premiers octets contiennent le nom de fichier, Un nom de fichier 
peut en effet comporter pour le travail sur cassette jusqu'à 16 
caractères mais par contre pour le travail sur disquette, le nom ne se 
compose au maximum que de 8 caractères, Si on ajoute encore l'extension 
avec ses trois caractères maximum, nous n'avons toujours que 11 
caractères. Comme premier caractère est en outre entré le numéro user. 
Cela donne un nombre de 12 octets et les 4 derniers caractères du nom de 
fichier dans le header fichier valent toujours 0. 

Les octets 16 et 17 sont sans signification pour le lecteur de disquette. 
J1s contiennent pour le travail sur cassette le numéro de bloc actuel et 
une marque indiquant si le bloc actuel est le dernier bloc du fichier. Du 
fait d’une structure totalement différente, ces indications disparaissent 
sous AMSDOS. 

L'octet suivant, numéro 18, est cependant également très important sous 
AMSDOS. Il contient le type de fichier. Le type de fichier est codé sous 
forme binaire, c'est-à-dire que les différents bits de cet octet ont une 
signification déterminée. 

Le bit O indique si le fichier est protégé. Pour les programmes qui ont 
été sauvegardés avec SAVE"nom de fichier”,P, le bit O du type de fichier 
est mis. 

Les bits 1, 2 et 3 déterminent le type de fichier proprement dit. Si les 
trois bits sont annulés, il s'agit d'un programme Basic. Si le bit 1 est 
mis, le fichier est un fichier binaire, donc une zone de mémoire du CPC. 
Le type de fichier ASCII est produit par la mise des bits 1 et 2. 

Les bits 4 à 7 ne sont normalement pas mis et ils représentent, selon le 
Firmware Manual du CPC, le numéro de version, sans que cette notion 
apparaisse très claire. Seuls les fichiers ASCII ont le numéro de version 
1, le bit 4 du type de fichier étant mis. 

Après un DISK OUT OPEN réussi, le type de fichier est mis sur fichier 
ASCII, C'est à vous d'entrer ici la valeur correcte dont vous avez 
besoin. 

Les octets 19 et 20 sont encore un reste du travail sur cassette. Ils 
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contiennent le nombre d'octets du bloc de données actuel mais ils sont 
sans signification pour le travail sur disquette. 

Plus importants sont les deux octets suivants numéros 21 et 22, Ils 
contiennent l'adresse à partir de laquelle les données ont été écrites, 
Cette indication n'est bien sûr pas encore fournie pour DISK OUT OPEN, Ce 
n'est que lors de l'écriture dans un fichier avec DISK OUT DIRECT (voir 
ci-dessous) que ce champ du header de fichier est rempli, Pour les 
fichiers ASCII vous ne trouvez ici que la valeur O0 car ce paramètre n'a 
aucun sens dans ce cas, 

L'octet 23 du header de fichier vaudra toujours 8FF, Pour le travail sur 
cassette, cette valeur indique que le bloc de données actuellement lu est 
le premier du fichier. Cette indication n'a pas non plus de sens pour le 
travail sur disquette. 

Les octets 24 et 25 contiennent la longueur du fichier, Cette valeur est 
transmise dans le registre double DE après DISK IN OPEN, Pour les 
fichiers ASCII, cette valeur est toujours O0 car les fichiers ASCII ne 
voient leur taille limitée que par la capacité de la disquette, Celle-ci 
excède toutefois la valeur maximale pouvant être représentée avec deux 
octets. 

Les derniers octets utilisés, 26 et 27 contiennent sur les programmes 
machine l'adresse de départ du programme, Lorsque vous sauvegardez une 
zone de la mémoire avec l'instruction SAVE"memoire.bin”,b, 1000, 2000, 1200, 
la valeur 1200 sera alors placée dans ces deux cases mémoire en format 
hexadécimal. Si vous travaillez cependant avec les mêmes routines en 
langage machine, vous devez entrer cette valeur vous même. 

Tous les autres octets du header de fichier ne sont utilisés d'aucune 
manière par AMSDOS, Si vous en avez l'utilité, vous pouvez les employer, 
Après DISK OUT OPEN, ces octets sont mis sur O0 et sont ensuite à votre 
libre disposition, 


2.1.9 DISK OUT CLOSE 8BC8F 


Un fichier de sortie doit également être fermé. Mais la nécessité de 
fermer un fichier est beaucoup plus grande lors de l'écriture que lors de 
la lecture. Cela vient du fait que chaque caractère n'est pas écrit 
directement sur la disquette mais d’abord dans le buffer de 2048 octets 
qui a été créé avec DISK OUT OPEN. Si ce buffer déborde, c'est-à-dire si 
le nombre de caractères à stocker est plus grand que 2048, ce buffer est 
écrit sur la disquette. Lors de la fermeture d'un fichier, il peut donc y 
avoir dans le buffer Jusqu'à 2047 caractères, Avec l'appel de la routine 
CLOSE, ce reste figurant dans le buffer est également écrit sur la 
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disquette, Ce n'est qu'à partir de ce moment que le fichier sur la 
disquette sera complet, Vous risquez donc de perdre, dans l'hypothèse la 
moins favorable, 2047 octets si vous changez la disquette alors qu’un 
fichier de sortie est encore ouvert. 

D'autre part, le nom de fichier provisoire (avec l'extension .$$$) est 
remplacé par le nom de fichier original. Un fichier existant 
éventuellement déjà sous ce nom verra alors son nom changer, il recevra 
l'extension .BAK. Si vous voyez dans le catalogue un fichier ayant cette 
extension, il s’agit en général d'un fichier qui n'a pas été refermé 
correctement. 

La routine CLOSE ne nécessite pas la transmission de paramètres 
particuliers car, comme pour la lecture, un seul fichier peut être ouvert 
à la fois. Après exécution de cette routine, vous pouvez déterminer, au 
vu de l'état des flags Carry et Zéro, si le CLOSE a été exécuté 
correctement, Dans ce cas, le Carry est à nouveau mis alors que le flag 
Zéro est annulé. 


2.1.10 DISK OUT ABANDON &BC92 


Si une erreur grave se produit lors de l'écriture dans un fichier, le 
fichier peut être fermé grâce à cette routine, Un exemple d'une telle 
erreur grave serait Un message indiquant que la disquette est pleine. 
Dans ce cas vous devriez appeler DISK OUT ABANDON car les blocs occupés 
Jusqu'ici seront alors libérés sur la disquette, De même, le nom du 
fichier n'apparaîtra pas dans le catalogue, Dans un tel cas, toutes les 
données écrites Jusqu'à présent devront être écrites à nouveau sur une 
disquette comportant plus de place mémoire libre. 


2.1,11 DISK OUT CHAR &BC95 


Comme pour la lecture de données, AMSDOS connaît deux moyens différents 
pour écrire des données sur la disquette. La première méthode passe par 
DISK OUT CHAR, Cette routine écrit le caractère figurant dans 
l'accumulateur dans le buffer OPENOUT, Si un débordement se produit, les 
caractères écrits Jusqu'ici dans le buffer sont sauvés sur la disquette 
et le buffer est ainsi à nouveau libéré. 

Cette routine permet en principe d'écrire n'importe quel caractère dans 
un fichier. Si le fichier est cependant plus tard lu avec DISK IN CHAR, 
vous devrez alors être très prudent dans l’utilisation du caractère &1A 
(26 en décimal), Ce caractère risquerait en effet sinon d'être interprété 
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lors d'une lecture ultérieure comme la marque EOF, même si le fichier ne 
se termine pas du tout à cet endroit. 

Hormis le caractère à écrire qui doit être placé dans l'accumulateur, 
aucun autre paramètre ne doit être transmis à cette routine. Comme pour 
les autres routines, après exécution de DISK OUT CHAR, le Carry est mis 
si le caractère a été écrit correctement. Si par contre les flags Carry 
et Zéro sont annulés, c'est que vous avez négligé d'ouvrir correctement 
le fichier de sortie nécessaire. 


2.1.12 DISK OUT DIRECT &BC98 


Cette routine représente la seconde possibilité pour AMSDOS de 
sauvegarder des données dans un fichier sur disquette. Au contraire de 
l'écriture de caractères isolés, cette routine est utilisée pour 
sauvegarder des zones entières de la mémoire du CPC. Il faut pour cela 
transmettre différents paramètres à DISK OUT DIRECT, 

Le registre double HL doit d'abord recevoir l'adresse de départ de la 
zone de mémoire à écrire. À partir de cette adresse, les données seront 
écrites dans le fichier. 

La prochaine valeur importante est la taille de fichier voulue. Vous 
devez à cet effet charger dans le registre double DE le nombre d'octets à 
sauvegarder, Il est donc évident que la taille maximale d’un tel fichier 
est 64K ou 65536 octets. Des fichiers de taille plus importante ne 
seraient d'ailleurs pas utiles. Cette grandeur de fichier suffit pour 
Sauvegarder toute la mémoire RAM du CPC sur disquette, ce qui d'ailleurs 
n'est pas très intéressant puisqu’un tel fichier ne peut plus être 
rechargé entièrement. 

Si vous le souhaitez, vous pouvez transmettre dans le registre double BC 
l'adresse ENTRY (par exemple l'adresse de départ pour des programmes 
machine). Le contenu de ce registre double est écrit dans les octets 26 
et 27 du header de fichier. 

Vous pouvez transmettre un dernier paramètre à travers l'accumulateur., Il 
s'agit du type de fichier voulu, Cette indication sera également écrite 
dans le header de fichier, dans l'octet 18 du header. 


Comme pour la lecture de fichiers, il est également important en écriture 
de ne pas changer de méthode d'écriture. On ne peut donc pas sauter dans 
un fichier d'une méthode à l'autre. Une fois que vous avez écrit un 
caractère avec DISK OUT CHAR, toute tentative pour utiliser ensuite DISK 
OUT DIRECT entraînera un message d'erreur. 

11 n’est malheureusement pas non plus possible d'utiliser dans un fichier 
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DISK OUT DIRECT plus d'une fois. Même si, après un autre DISK OUT DIRECT, 
AMSDOS envoie le message OK, il y aura, au plus tard lors de DISK OUT 
CLOSE, le message ‘File not open as expected’. Le fichier ne sera pas non 
plus écrit correctement, Après que cette routine ait donc été exécuté une 
fois, le fichier de sortie doit être refermé. Une autre zone de mémoire 
du CPC ne pourra être sauvegardée sur la disquette que dans un autre 
fichier, 


2.1.13 DISK CATALOG &BC9B 


Ne serait-ce que pour cette propriété intéressante, la disquette doit 
etre préférée à la cassette. Vous obtenez en un temps très bref un aperçu 
des fichiers figurant sur le lecteur de disquette, En outre, le nombre de 
blocs libres sur la disquette est affiché. 

Avant d'appeler DISK CATALOG vous devez indiquer dans le registre double 
DE l'adresse de départ d’une mémoire buffer de 2048 octets. Ce buffer 
n'était pas au fond indispensable et il a été mis en place certainement 
en premier lieu pour des raisons de compatibilité avec le travail sur 
cassette, Mais les programmeurs de l'AMSDOS ont eu une idée très 
intéressante pour tirer profit de ce buffer. Lorsque vous appelez DISK 
CATALOG, les noms des fichiers sont en effet lus sur la disquette et 
placés dans ce buffer, avec l'information concernant le nombre de blocs 
occupés, Les noms de fichier ne sont cependant pas écrits simplement dans 
l'ordre dans lequel ils apparaissent sur la disquette mais ils sont triés 
d'après l'ordre alphabétique, C’est pourquoi vous obtenez toujours un 
catalogue aussi joliment trié lorsque vous entrez l'instruction CAT. Par 
contre, avec l'instruction DIR, les fichiers sont affichés dans l'ordre 
dans lequel ils figurent effectivement sur la disquette, c’est-à-dire non 
triés. 


2,1,14 LE PATCHING (OU DETOURNEMENT) DES VECTEURS 


Au début de ce chapitre nous avons expliqué en détail les avantages des 
vecteurs situés en RAM. Mais si vous voulez tirer parti d'un avantage 
essentiel, de la facilité de modification des routines correspondantes, 
il vaut mieux ne pas vous mettre au travail de façon trop précipitée. La 
médaille a en effet un revers dangereux. 


Un regard sur le listing de la ROM au chapitre 3 montre où se situe la 
difficulté. Après initialisation d'AMSDOS, les 13 vecteurs présentent le 
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même contenu. Dans tous les cas, les trois octets de chaque vecteur sont: 


RST &18 
DEFW  8ÂA88B 


Une simple boucle PEEK confirme cette affirmation. La routine RST 818, 
également appelée RST 3 permet d'appeler comme sous-programme, donc de 
sauter presque comme avec CALL à n'importe quelle routine dans n'importe 
quelle ROM ou dans la RAM, Pour cela cependant, l'adresse sur deux octets 
figurant après l'instruction Restart ne suffit pas, En effet on ne peut 
placer dans deux octets qu'une seule adresse, sans qu'il soit possible 
d'ajouter une valeur de sélection de la ROM. La solution de ce problème 
est la suivante: l'adresse derrière RST indique l'adresse de la mémoire à 
laquelle figure la véritable adresse sur trois octets, 

Dans notre cas, il nous faut regarder en 8&A88B pour obtenir l'adresse et 
l'octet de sélection de la ROM pour la routine effective du DOS, A 
l'adresse 28A88B figurent les valeurs 830, &CD et &07, Ceci donne en 
lecture ‘en clair’ l'adresse &CD30 dans la ROM d'extension 7, 

Si l'on regarde maintenant à l'adresse indiquée de 1a ROM AMSDOS on 
trouve une routine assez particulière qui détermine l'adresse du vecteur 
appelé à travers une manipulation de la pile (en effet, sur la pile se 
trouve l'adresse du vecteur + 3), Une valeur de 810D2 est ajoutée à cette 
adresse et placée sur le haut de la pile. Un RETurn conduit alors à la 
routine demandée, Que s'est-il donc passé? 


On comprend pourquoi on a choisi cette voie détournée pour appeler les 
différentes routines si l’on se représente que le RST 3 a le même effet 
qu'un CALL, Lors d'un CALL, une adresse de retour est placée sur la pile. 
Mais cette adresse pointe DERRIERE le vecteur appelé, sur la prochaine 
entrée du bloc de sauts. Notre programme doit cependant être poursuivi à 
partir de l'emplacement qui suit l'appel du vecteur. C'est pourquoi 
l'adresse de retour de RST doit absolument disparaître de la pile, 

C'est exactement cette tâche qui incombe à la routine en &CD30, L'adresse 
de retour à écarter n'est cependant pas simplement jetée aux oubliettes. 
Elle est au contraire additionnée à la valeur &10D2, ce qui donne 
l'adresse effective de la routine à appeler. Si un RST vient sur 
l'adresse &eCD30 à partir d'une autre adresse qu'une entrée du bloc de 
sauts, l'addition donne une valeur totalement insensée et un “plantage” 
ou un Reset peuvent en être les conséquences probables. 


Mais assez d'explications, Voyons comment on peut malgré tout détourner 
ces routines. 


- 91 - 


L'exemple choisi est très simple. La seule fonction de ce détournement 
est de montrer comment un tel détournement fonctionne. Pour cet exemple, 
nous détournerons le vecteur CAT. 


100 INIT: LD HL, &BC9C adresse du vecteur CAT 

110 LD TEMP, HL : Sauvegarder 

120 LD HL, PATCH nouvelle adresse du RST 

130 LD &BC9C,HL :patcher 

140 RET c'est bon 

150 PATCH: EQU $ sici pourrait figurer votre routine 
160 LD HL, TEMP adresse originale 

170 LD &BC9C, HL entrer à nouveau 

180 CALL &BC9B vecteur CAT avec adresse correcte 
190 PATCH1: EQU $ ici aussi pourrait être votre routine 
200 CALL  INIT :restaurer pour le prochain appel 
210 RET tout est fini 


Comme vous le voyez, nous ne faisons vraiment rien d'autre que 
détourner le vecteur. Toutefois, de cette façon, vous pouvez 
intervenir aussi bien avant qu'après la routine. 


Un exemple pratique de la méthode utilisée est la réparation de MERGE 
et de CHAIN MERGE, Vous pourriez désassembler ce petit programme pour 
voir comment l'intervention dans la routine DISK IN CHAR y est 
programmée. 
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2,2 LES EXTENSIONS D'INSTRUCTIONS DE L'AMSDOS 


Les routines décrites dans le chapitre précédent sont loin d’épuiser 
toutes les possibilités qui s'offrent au programmeur. Les instructions 
étendues, marquées en Basic par un trait vertical (SHIFT-@, peuvent être 
également utilisées sans difficulté en langage machine. Voyons maintenant 
en détail comment procéder, 


Vous connaissez déjà les instructions possibles: 


CPM À 
DISC B 
DISC.IN DRIVE 
DISC.OUT USER 
TAPE DIR 
TAPE. IN ERA 
TAPE OUT REN 


Au contraire des routines DISK décrites précédemment, il n’y a pas de 
vecteurs pour les instructions étendues, de sorte qu'il n’est pas 
possible de les appeler directement, Pour les extensions d'instructions, 
il convient de prendre certaines mesures particulières pour arriver à 
l'action voulue, Essayons donc de nous familiariser avec le mécanisme 
nécessaire. 


2.2,1 PROGRAMMATION DES EXTENSIONS EN ASSEMBLEUR 


Si les instructions d'une extension d'instruction quelconque doivent être 
exécutées, 11 faut tout d’abord que l'adresse de la routine soit connue, 
Comme ces routines peuvent se trouver aussi bien dans la RAM sous la 
forme de ce qu'on appelle une extension RSX que dans les ROMs dans les 16 
K supérieurs du CPC, il faut donc en outre déterminer une éventuelle 
adresse de ROM, Une routine spéciale du Kernal du CPC sert à retrouver 
ces indications lorsque nous indiquons le nom de l'extension 
d'instruction voulue, Il faut à cet effet que l'adresse du nom soit 
entrée dans le registre double HL. Il ne faut d'autre part indiquer le 
nom qu'en majuscules. Le dernier caractère du nom doit étre marqué par la 
mise du bit 7 de ce caractère, C'est exactement sous cette forme que 
figurent en ROM et en RAM tous les noms des extensions d'instructions. 

Si le nom se trouve donc en RAM sous la forme voulue et que HL contient 
l'adresse de ce nom, il suffit d'appeler la routine KL FIND COMMAND. 
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KL FIND COMMAND est une routine du kernal du CPC qui a un vecteur en RAM 
à l'adresse &BCD4, Après que cette routine ait été exécutée, vous obtenez 
en retour les paramètres suivants: 

Si le flag Carry n'est pas mis, c'est que l'instruction correspondante 
n'a pas été trouvée. Soit vous n'avez pas entré correctement le nom de 
l'extension d'instruction, soit l'extension n'est pas encore initialisée, 
Avec le lecteur de disquette, ce dernier cas peut survenir si vous 
allumez d’abord le CPC et ensuite seulement le lecteur de disquette, Mais 
si vous appuyez alors simultanément sur les trois touches CTRL, SHIFT et 
ESC, un Reset se produira au cours duquel l'extension d'instruction sera 
‘intégrée’, de sorte qu'elle sera ensuite à votre disposition. 

Si par contre le flag Carry est mis après la routine KL FIND COMMAND, 
vous obtenez en retour l'adresse de la routine voulue dans le registre 
double HL, Vous trouverez dans le registre C l'adresse ROM requise, 


Le fait que ce soient précisément ces registres qui reçoivent ces 
informations résulte d’un choix délibéré des programmeurs du système 
d'exploitation. Il existe en effet une routine Kernal appelée KL FAR PCHL 
qui peut appeler comme sous-programme n'importe quelle adresse dans une 
ROM ou dans la RAM. L'adresse de la routine doit à cet effet être 
transmise dans HL et l'adresse ROM requise dans le registre C, C'est 
exactement ici que se trouvent les valeurs nécessaires après KL FIND 
COMMAND, de sorte que rien ne manque plus pour appeler la routine. 


Examinons ce mécanisme en prenant l'exemple de l'instruction IDIR, qui ne 
nécessite pas de paramètres supplémentaires, avant que nous n'en venions 
aux instructions qui nécessitent des paramètres sous forme de variable 
numériques ou alphanumériques. 


100 LD HL, COMMAND :adresse de l'instruction 
110 CALL KL-FIND-COMMAND adresse 8BCD4 

120 RET NC ;pas trouvé instruction 
130 XOR A ;:pas de paramètres 

140 CALL KL-FAR-PCHL adresse 8001B 

150 RET 

160 COMMAND: DEFM ‘’DI’','R'+880 ;nom de l'instruction 


Les deux routines du Kernal utilisées ici sont d'une efficacité vraiment 
fantastique. Plus personne n'a à se perdre dans de longues tables 
d'adresses des routines nécessaires, 11 suffit simplement que le nom de 
la routine soit connu. Cette puissance n'a été à notre connaissance 
atteinte Jusqu'ici sur aucun autre ordinateur domestique, 
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La programmation ne devient que légèrement plus complexe lorsque des 
paramètres doivent être transmis à l'extension d'instruction. Prenons 
d'abord le cas où seules des valeurs numériques entières doivent être 
transmises, C'est par exemple le cas pour l'instruction IUSER, Les 
numéros USER autorisés sont les valeurs de 0 à 15, Voyons un programme 
d'exemple d'appel de l'instruction user avant de traiter des 
particularités de la transmission des paramètres: 


100 LD HL, COMMAND adresse de l'instruction 
110 CALL  KL-FIND-COMMAND adresse &BCD4 

120 RET NC spas trouvé instruction 
130 LD A,1 transmettre un paramètre 
140 LD IX, NUMBER numéro user voulu 

150 CALL KL-FAR-PCHL adresse 8001B 

160 RET 

170 COMMAND: DEFM ‘USE’, 'R'+880 snom de l'instruction 


180 NUMBER:  DEFW 0004 


Vous voyez tout d'abord que nous transmettons dans l'’accumulateur à la 
routine IUSER le nombre de paramètres transmis, Toute autre valeur que 1 
entraîne dans ce cas la sortie de ‘Bad command’. 

Le registre IX pointe sur le numéro user voulu, dans notre exemple le 
numéro user 4, Comme seules des valeurs 16 bits peuvent être transmises, 
la valeur de NUMBER doit être définie à la ligne 180 avec l'instruction 
DEFW, sous la forme d'une valeur sur deux octets (soit 16 bits). 

La programmation n'est donc pas tellement plus compliquée dans ce cas. Il 
faut cependant un peu plus de travail lorsque des chaînes de caractères 
doivent être transmises à l'extension d'instruction. C'est par exemple le 
cas pour les instructions IERA, IREN et IDRIVE. 

Comme vous le savez déjà, les chaînes de caractères ne peuvent pas être 
transmises directement aux instructions de l'extension d'instruction. Au 
lieu de cela, c'est le pointeur de variable que vous obtenez avec la 
fonction arobas @ qui doit être transmis. Le pointeur de variable pointe 
sur ce qu'on appelle le string descriptor ou descripteur de chaîne, La 
description détaillée du descripteur de chaîne et de la gestion des 
chaînes de caractères en Basic sort du cadre de cet ouvrage. 


Prenons d'abord l'exemple le plus simple où une seule chaîne doit être 
transmise comme paramètre, l'instruction IERA. Dans notre exemple, nous 
Supprimerons un fichier portant le nom ‘ADRESSES ,DAT’, 


100 LD HL, COMMAND adresse de l'instruction 
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110 CALL  KL-FIND-COMMAND adresse &BCD4 

120 RET NC ;:pas trouvé instruction 
130 LD A,1 transmettre un paramètre 
140 LD IX, VARPTR :descripteur de variable 
150 CALL KL-FAR-PCHL adresse &001B 

160 RET 

170 COMMAND: DEFM ‘ER','A'+880 nom de l'instruction 
180 VARPTR:  DEFW DESCRIP adresse du descripteur 
190 DESCRIP: DEFB 12 :longueur de la variable 
200 DEFW  FILNAM adresse du nom 

210 FILNAM:  DEFM ‘ADRESSES.DAT' sfichier à supprimer 


Les choses se compliquent encore un peu plus lorsque deux chaînes doivent 
etre transmises, comme c'est le cas pour l'instruction IREN. L'exemple 
suivant vous montre comment vous pouvez changer le nom d'un fichier 
"ADRESSES DAT’ en "ADRESSES ,ANC', 


100 LD HL, COMMAND ;adresse de l'instruction 

110 CALL KL-FIND-COMMAND ;adresse &BCD4 

120 RET NC :pas trouvé instruction 

130 LD A,2 transmettre deux noms de fichier 
140 LD IX, VARPTR ;:descripteurs de variable 

150 CALL  KL-FAR-PCHL adresse 8001B 

160 RET 

170 COMMAND: DEFM ?RE','N'+880 nom de l'instruction 

180 VARPTR:  DEFW DESCOLD adresse descripteur ancien nom 
190 DEFW  DESCNEW :adresse descripteur nouveau nom 
200 DESCOLD: DEFB 12 :longueur de la variable 

210 DEFW  OLDNAME adresse ancien nom de fichier 
220 OLDNAME: DEFM ADRESSES DAT” ancien nom de fichier 

230 DESCNEW: DEFB 12 longueur de la variable 

240 DEFW  NEWNAME adresse nouveau nom de fichier 
250 NEWNAME: DEFM ‘ADRESSES .ANC' nouveau nom de fichier 


Même si dans cet exemple toutes les données ont été bien disposées à la 
suite les unes des autres, elles peuvent cependant figurer en réalité 
n'importe où dans la mémoire du CPC, L'ordre ne joue pas non plus de 
rôle. Il faut simplement que les pointeurs sur les descripteurs figurent 
en mémoire dans le bon ordre et immédiatement les uns à la suite des 
autres. 


Les connaissances acquises dans ce chapitre devraient maintenant vous 
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permettre de pouvoir utiliser également en langage machine toutes les 
possibilités disponibles à partir du Basic. Cela fait certainement déjà 
beaucoup mais cela ne représente qu'une partie de ce qui est 
effectivement possible. Le but de la programmation en langage machine est 
en effet Justement de reculer les limites des possibilités existant en 
Basic. Cependant nous n’en sommes pas encore arrivé là. 


Nous allons donc étudier dans le chapitre suivant quelles possibilités 
supplémentaires s'offrent au programmeur en langage machine. 
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2.2,2 LES INSTRUCTIONS ‘CACHEES' DE L'EXTENSION D’ INSTRUCTION 


En étudiant le listing de la ROM nous avons découvert des possibilités 
qui ne sont nullement évoquées dans le manuel d'utilisation. Outre les 14 
instructions connues de l'extension d'instructions, il y a encore 9 
autres instructions très intéressantes qui peuvent être mises en oeuvre 
comme les instructions décrites Jusqu'ici. Toutefois ces instructions ne 
peuvent pas être utilisées à partir du Basic comme par exemple 
l'instruction IDIR. 
Toutes ces instructions ont un nom d’un caractère. Ces noms sont 2801, 802 
. 809, Comme pour tous les noms de l'extension d'instruction le 7ème 
bit du dernier caractère doit être mis, les noms effectifs sont donc 881, 
882 ,., &89, De tels noms ne peuvent être entrés dans des programmes 
Basic. L'utilisation de ces instructions est donc en fait ainsi réservée 
au programmeur en langage machine, Pour certaines de ces instructions, 
leur utilisation en Basic ne présenterait d'ailleurs aucun intérêt comme 
vous le montrera la description des différentes instructions. 


2.2,2,1 L'INSTRUCTION 881 MESSAGE ON/OFF 


Cette instruction permet d'interdire les messages d'erreur qui peuvent se 
produire en liaison avec les instructions suivantes 882 à 889, Il s'agit 
en particulier des messages d'erreur du disk controller qui demandent à 
l'utilisateur d'entrer C, I ou R pour Chancel, Ignore et Retry. Pour 
arriver à cette interdiction des messages d'erreur, le programmeur doit 
placer dans l'accumulateur, avant appel de l'instruction, une valeur non 
nulle, 


100 LD HE, COMMAND adresse de l'instruction 

110 CALL KL-FIND-COMMAND adresse 8BCD4 

120 RET NC ;pas trouvé instruction 

130 LD A 8&FF :Valeur pour interdire les 
messages 

140 CALL KL-FAR-PCHL adresse 8&001B 

150 RET 

160 COMMAND: DEFB 881 nom de l'instruction 


La seule fonction de ce programme est de transférer la valeur dans 
l'accumulateur dans la case mémoire &BE78, Vous pouvez arriver 
certainement plus rapidement au même résultat en écrivant explicitement 
dans cette case mémoire. Mais si l'adresse de cette case mémoire devait 
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etre modifiée, pour des raisons quelconques, dans des versions 
ultérieures de l'AMSDOS, la routine de Il'AMSDOS que nous venons de 
décrire sera certainement adaptée de façon à ce que ce soit la nouvelle 
adresse qui soit fournie. Pour des raisons de compatibilité avec 
d'éventuelles versions ultérieures, il faut donc absolument que vous 
utilisiez la routine montrée ci-dessus, si vous ne programmez pas 
exclusivement pour vous même. 


En Basic 1.0, cette routine ne peut être utilisée car vous devez vous en 
tenir aux messages d'erreur sur l'écran. Le numéro d'erreur transmis dans 
l'accumulateur ne vous est en effet pas fourni en Basic 1.0. Le seul 
effet serait d'interrompre le programme en cours et de faire apparaître 
sur l'écran le message laconique ‘BREAK’. Avec le Basic 1.1 du CPC 664 
vous pouvez par contre employer cette routine et interroger les erreurs 
avec ON ERROR GOTO et avec la variable système DERR. Pour les programmes 
Basic, le programme d'interception des messages d'erreur que vous 
trouverez plus tard dans la collection de programmes, est cependant Plus 
adapté. 


2.2.2,2 L'INSTRUCTION 882 PARAMETRES DE DRIVE 


Cette instruction autorise la modification des données du lecteur de 
disquette telles que le délai d'attente entre la mise en marche du moteur 
et le moment où est atteint le nombre de rotations voulu, ou la constante 
correspondant au délai qu'il faut attendre après un changement de piste, 
ainsi que le temps de fin de rotation du moteur du disque. Les durées 
pour le HEAD LOAD TIME et pour le HEAD UNLOAD TIME peuvent être également 
fixées à nouveau avec cette routine. 

Contrairement aux routines précédentes de l'extension d'instruction, 882 
ne peut pas être appelée avec les routines connues jusqu'ici. 882 attend 
en effet dans le registre double HL le début de la table pour les données 
du lecteur de disquette, L'appel avec KL FAR PCHL n'a donc pas lieu 
d'être ici puisque cette routine attend en HL l'adresse de la routine à 
appeler, Il v a cependant également d'autres méthodes pour appeler une 
instruction d'extension, 


100 LD HL, COMMAND adresse de l'instruction 

110 CALL KL-FIND-COMMAND adresse geBCD4 

120 RET NC ;:pas trouvé instruction 

130 LD CFARADR),HL ;:ranger adresse de la routine 
140 LD A,C Sélection ROM dans l'accu 
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150 LD (FARADR+2), À et sauver également 


160 LD HL, NEWTAB ;:tables des paramètres disque 

170 RST 818 agit comme un CALL de la routine 
voulue 

180 DEFW  FARADR vecteur sur far adress 3 octets 

190 RET 

200 COMMAND: DEFB 882 snom de l'instruction 

210 FARADR: DEFS 3 :place pour l'adresse 3 octets 

220 NEWTAB: DEFS 7 :7 octets doivent être transmis à 
882 

230 HDUNLD: DEFS 1 sici doit figurer l'adresse HEAD 
UNLOAD TIME voulue 

240 HEADLD:  DEFS 1 3 HEAD LOAD TIME d'après fiche 


technique du FDC 


Contrairement aux appels précédents de routines de l'AMSDOS, nous avons 
utilisé ici une instruction RESTART, Le RST représente une forme 
particulière de l'instruction CALL, Ce RST permet, comme avec la routine 
KL FAR PCHL, d'appeler n'importe quelle adresse dans n'importe quelle ROM 
possible ou dans la RAM. L'avantage de RST 818 est cependant qu'aucun 
registre n'est nécessaire, Nous pouvons donc avec cette routine 
transmettre aux sous-programmes à appeler des paramètres même dans le 
registre double HL et dans le registre C, ce qui n'était pas possible 
avec la routine du KERNAL utilisée Jusqu'ici. Pour cela, les trois octets 
de la FAR adresse doivent être placés dans la mémoire du CPC. Ces trois 
octets, soit l'adresse sur deux octets et l'octet de sélection de la ROM, 
doivent absolument être placés dans la mémoire dans l'ordre indiqué et 
l'un après l'autre. 


Nous allons maintenant examiner encore une fois comment la table requise 
doit se présenter. 

La première entrée de la table est une valeur 16 bits qui définit le 
temps qu'il faut attendre après la mise en marche du moteur du disque. Il 
est évident que la disquette n'atteint pas la vitesse de rotation voulue 
immédiatement après que le moteur du lecteur ait été mis en marche. Cela 
ne se produit qu’au bout d'environ une seconde. La valeur standard après 
la mise sous tension est donc de 50 décimal, Cette valeur est décomptée 
avec un ticker event. Comme le ticker est exécuté tous les cinquantièmes 
de seconde, on obtient un délai d'attente d'exactement une seconde. 

La deuxième entrée de la table décrit le temps de fin de rotation des 
moteurs après le dernier accès à la disquette. Ici aussi on travaille 
avec le ticker, Après initialisation d'AMSDOS, la valeur 16 bits utilisée 
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est 250 décimal. Cela correspond à une période de fin de rotation de 2,5 
secondes. 

La troisième entrée de la table est une valeur sur un octet. La valeur 
standard est ici gAF. Cette valeur n'est utilisée que par la routine 886, 
formatage d'une piste. Elle ne doit pas être modifiée. 

La valeur 16 bits suivante définit également des délais d'attente, 
L'octet fort de cette valeur détermine le temps qu'il faut attendre après 
un changement de piste. C'est un délai d'attente de 12 ms qui est fixé 
comme valeur standard, Ce délai d'attente dépend du lecteur de disquette 
utilisé. 

Deux autres délais d'attente doivent être définis dans cette table. Ce 
sont les valeurs pour HEAD LOAD TIME et HEAD UNLOAD TIME qui sont 
requises par le circuit intégré du controller, Les valeurs prescrites en 
ROM sont 32 ms pour HEAD UNLOAD TIME et 16 ms pour HEAD LOAD TIME. Vous 
trouverez plus loin la signification exacte de ces valeurs, dans la 
description du FDC 765, 


L'instruction 882 est exécutée automatiquement par AMSDOS après la mise 
sous tension où après un Reset. Sous CP/M également, cette fonction est 
exécutée une fois après le lancement de CP/M. Sous CP/M il est possible 
de définir comme vous le souhaitez les différents paramètres dans le 
programme SETUP,COM, Vous trouverez la table utilisée après le Reset à 
l'adresse gC5D4 dans la ROM de 1'AMSDOS, 


2,2,2,3 L'INSTRUCTION 883 PARAMETRES DE FORMAT DE DISQUE 


Comme vous le savez, le CPC est prévu pour pouvoir travailler avec trois 
formats de disquette différents. L'instruction 883 permet de déterminer 
le format d'une disquette placée dans le lecteur de disquette actif. Pour 
chaque format figure une table dans la ROM de 1'AMSDOS, Suivant la valeur 
transmise dans l'accumulateur, la table requise sera placée dans 1a RAM 
du CPC. L'utilisateur peut donc ainsi mettre en place les tables qui 
conviennent dans des programmes machine avec accès direct de secteur. En 
Basic, l'utilisation de cette instruction est possible mais elle ne 
présente aucun intérêt puisque AMSDOS détermine ces valeurs par lui-même. 
Même si vous indiquez donc un format déterminé, le format sera une 
nouvelle fois déterminé, avant l'accès à la disquette. 


100 LD HL, COMMAND ;adresse de l'instruction 
110 CALL  KL-FIND-COMMAND vecteur &BCD4 
120 RET NC ;pas trouvé instruction 
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130 LD (FARADR) , HE ranger adresse de la routine 


140 LD A,C Sélection ROM dans l'accu 

150 LD (FARADR+2), A et Sauver également 

160 LD HL, FORMAT marque du format (voir texte) 
170 RST 818 

180 DEFW  FARADR vecteur sur far adress 3 octets 
190 RET 

200 COMMAND: DEFB &e83 nom de l'instruction 

210 FARADR: DEFS 3 :place pour l'adresse 3 octets 


Ce programme ne se distingue en aucune manière de ceux qui ont été 
présentés Jusqu'ici, Il reste simplement à définir comment les marques 
des différents formats doivent se présenter. 

Cette distinction est entreprise au moyen des numéros de secteur. Avec le 
format CP/M-AMSDOS, il y a sur chaque piste d’une disquette 9 secteurs de 
512 octets chacun. Ces 9 secteurs portent les numéros 841 à &49, Cela 
signifie que le bit 6 est mis sur chaque numéro de secteur. Dans le 
format de données AMSDOS par contre, les numéros de secteur sont 8C1 à 
&C9,. Dans ce cas, les bits 6 et 7 sont mis sur chaque numéro de secteur. 
En format IBM-CP/M, les numéros de secteur sont 801 à 808. En effet, avec 
ce format, seuls 8 secteurs sont formatés sur la disquette. Il y a donc 
ainsi un critère très simple pour distinguer entre les trois formats 
disponibles, Si vous transmettez à la routine &83 la valeur O (ou toute 
autre valeur dont les bits 6 et 7 soient annulés), c'est la table de 
paramètres pour le format IBM-CP/M qui sera alors mise en place dans la 
RAM. Le format CP/M-AMSDOS est mis en place lorsqu'une valeur avec un bit 
6 mis et un bit 7 annulé est transmise. Cela pourrait donc être &40 mais 
aussi 8/3, Si vous mettez les deux bits supérieurs de la valeur à 
transmettre (par exemple &C0 où &FF), c'est le format AMSDOS de données 
qui sera mis en place. 


2,2,2,4 L'INSTRUCTION 884 READ SECTOR 


La puissance de cette instruction ne doit pas être sous-estimée. Elle 
permet en effet de lire directement n'importe quel secteur de la 
disquette! 

Vous n'êtes plus ainsi lié aux structures de fichier connues mais vous 
pouvez construire si nécessaire des structures qui vous soient 
entièrement propres comme par exemple des fichiers relatifs ou ISAM, 
puisque l'instruction suivante 885 permet en outre d'écrire directement 
sur n'importe quel secteur. Avec ces deux instructions, tous les octets 
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figurant sur la disquette sont à votre disposition en accès direct. 


Pour pouvoir lire une secteur déterminé avec 884, certaines indications 
doivent être fournies à la routine. 

11 s’agit tout d'abord du lecteur de disquette voulu, Cette indication 
doit être placée dans le registre E. Une valeur de O dans le registre E 
sélectionne le lecteur À, un 1 sélectionne le lecteur B. 

Il faut d'autre part également indiquer à la routine le secteur voulu, 
C'est le registre C qui a été choisi comme registre pour ce paramètre. 
C'est toutefois le numéro de secteur figurant effectivement sur la 
disquette qui doit être transmis. Si vous voulez par conséquent lire le 
premier secteur d'une piste écrite en format CP/M-AMSDOS, le numéro de 
secteur correct sera donc 841. Le décalage sélectionné lors du formatage 
dans les bits 6 et 7 comme marque de format doit donc être inclu dans la 
valeur fournie. 

Il faut enfin indiquer encore la piste (track) voulue sur la disquette. 
Le numéro de piste est indiqué dans le registre D. Dans 1l'AMSDOS les 
numéros de piste entre 800 et 827 (39 décimal) sont autorisés. 


Voilà donc comment transmettre à travers les registres corrects tous les 
paramètres importants. Mais attention! Cela ne va pas tout à fait aussi 
vite. Nous devons encore décider dans quelle adresse mémoire doivent être 
écrits les 512 octets d'un secteur, Cette indication doit être transmise 
dans le registre HL, Nous avons ainsi réuni tous les paramètres et les 
données peuvent être envoyées. 


100 LD HL, COMMAND :adresse de l'instruction 

110 CALE KL-FIND-COMMAND vecteur &BCD4 

120 RET NC :pas trouvé instruction 

130 LD (FARADR), HL :ranger adresse de la routine 

140 LD AC :sélection ROM dans l'accu 

150 LD (FARADR+2), À :et sauver également 

160 LD E, DRIVE :0/1 pour drive A/B 

170 LD D, TRACK :0 à 39 pour piste voulue 

180 LD C, SECTOR ;:numéro de secteur avec décalage 
de format 

190 LD HL, BUFFER :512 octets pour les données du 
secteur 

200 RST 818 agit comme un CALL de la routine 
voulue 

210 DEFW  FARADR ;vecteur sur far adress 3 octets 

220 RET 
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230 COMMAND: DEFB &e84 ;nom de l'instruction 
240 FARADR: DEFS 3 :place pour l'adresse 3 octets 


Nous n'allons pas écrire maintenant un moniteur de disque complet. Le 
programme Basic suivant fournit cependant déjà la fonction ‘lecture de 
secteurs’, Tapez donc ce programme, complétez-le et analysez-le pour vous 
familiariser avec la manipulation des instructions, Ce petit programme 
représente l'armature de base du moniteur de disque déjà évoqué. 

Avant que vous n'essayiez de vous assurer du bon fonctionnement de ce 
programme, il faut absolument que vous fixiez la protection contre 
l'écriture sur la disquette que vous utiliserez, I1 suffit en effet qu'un 
seul octet soit erronné, notamment l'octet de commande, pour que le 
secteur sélectionné ne soit pas lu mais remplacé par les données du 
buffer, Si vous remplacez par exemple de cette façon le premier secteur 
du catalogue de votre disquette master CP/M par un série de 0, il ne nous 
reste plus qu'à vous souhaiter que vous en ayez déjà fait une copie. 
Sinon 16 programmes de cette disquette seront sans aucun doute perdus. 
Suivez donc le conseil que nous vous donnons maintenant dans votre 
intérêt: 


BACKUP, BACKUP, BACKUP III 
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100 DEFINT a-z 

110 MEMORY &A000-1 

120 FOR adresse=&A000 TO &A01C 

130 READ octet 

140 POKE adresse,octet 

150 controle=controle+octet 

160 NEXT adresse 

170 IF controle<>2941 THEN PRINT'erreur en datas!":END 
180 MODE 2 

190 INPUT"Canal de sortie (0/8)";periph 

200 INPUT"Lecteur (0/1)"; lecteur 

210 INPUT"Piste (0-39)";piste 

220 INPUT'"Secteur (1-9)'"; secteur 

230 POKE &A020, lecteur 

240 POKE &A021,piste 

250 POKE &A022,secteur+64 

260 CALL &A000 

270 MODE 2 

280 Tincnt=0 

290 FOR i=8&A030 TO &A030+511 

300 IF lincnt=0 THEN PRINT#periph," ";HEX$(i-8&A030,4);" "; 
310 PRINT#periph,HEXS(PEEK(i),2);" ";slinent=lincnt+i 
320 IF lincnt=16 THEN lincnt=0 

330 a=PEEK(i):a=a AND 127 

340 IF a<32 OR a=127 THEN t$="." ELSE t$=CHRS$S(a) 

350 lin$=lin$s+ts 

360 IF lincnt=0 THEN PRINT#periph,lin$:1in$="" 

370 NEXT 

380 PRINT"Appuyez sur la barre <ESPACE> pour continuer" 
390 IF INKEY(4/7) THEN 390 

400 GOTO 180 

410 DATA 821,81c,8a0,&cd,&d4,&bc,822,8&1d 

420 DATA &a0,879,832,81f,&a0,821,820,&a0 

430 DATA &5e,823,856,823,&de,821,830,&a0 

440 DATA &df,&l1d,&a0,&c0,&84 


La manipulation du programme est expliquée par le programme lui-même. La 
transmission des paramètres se fait d'après le principe des boîtes à 
lettres, c'est-à-dire que nous écrivons les valeurs dans certaines cases 
mémoire d'où elles sont ensuite retirées par le programme machine, Cela 
est malheureusement nécessaire car il n'est pas possible de charger 
directement certaines valeurs dans les registres du 7280 à partir du 
Basic, 

Après que les paramètres nécessaires aient été POKES dans la mémoire, la 
routine en langage machine est appelée avec CALL, Le secteur indiqué est 
recherché sur la disquette et les données sont écrites dans un buffer de 
512 octets qui commence en &A030, Les octets sont Ius ici par le 
programme Basic qui les affiche sur l'écran en format hexadécimal. Vous 
pouvez également choisir de détourner la sortie sur une imprimante 
connectée à votre ordinateur, 
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2.2,2.5 L'INSTRUCTION 885 WRITE SECTOR 


La simple lecture des données est déjà intéressante en soi. La routine 
que nous venons de vous présenter vous permet en effet un examen très 
intéressant du catalogue par exemple ou des pistes système O0 et 1 d'une 
disquette CP/M. Mais nous pouvons faire plus. L'écriture de données sur 
n'importe quel secteur de la disquette avec l'instruction 885 est aussi 
simple que la lecture avec l'instruction 884, Les paramètres nécessaires, 
le numéro du lecteur, la piste, le secteur et l'adresse du buffer de 
données sont même transmis à travers les mêmes registres que pour la 
lecture. Les modifications à apporter au programme précédent se ramènent 
donc à un seul octet. Seuls doivent être modifiés le numéro de 


l'instruction qui est le dernier élément de DATA dans le programme Basic 
ainsi bien sûr que la valeur de contrôle, 


Vous pouvez expérimenter cette possibilité en prenant une disquette que 
vous venez de formater et en essayant d'écrire sur un secteur. Vous 
pouvez POKEr à cet effet n'importe quelles valeurs dans le buffer de 
secteur et écrire ensuite ce buffer sur un secteur. Avec la routine de 
lecture que nous vous avons fournie, vous pourrez ensuite contrôler si 
tout a bien marché comme vous le vouliez. 


2,2.2,6 L'INSTRUCTION 886 FORMAT TRACK (FORMATER UNE PISTE) 


Cette instruction est pour ceux d'entre vous qui sont des spécialistes. 
Œlle permet de formater une piste isolée sur la disquette. Avec l'aide de 
l'instruction 886, vous pouvez intégrer dans vos programmes des routines 
de formatage, de sorte que l'utilisateur n'est pas obligé de se contenter 
du programme CP/M *FORMAT,COM’. 

Avant que nous n'expliquions plus en détail cette instruction ‘cachée’ de 
l'extension d'instructions, il nous faut expliquer comment le FDC 765 
formate une piste, Pour ne pas déflorer la description à venir du FDC 
765, nous ne vous révèlerons pour le moment que les points suivants: 


Le controller du lecteur de disquette est, en ce qui concerne Île 
formatage des disquettes, très axé sur les besoins des utilisateurs. Il 
se contente de certains octets, en petit nombre et il fait lui-même tout 
le ‘sale boulot’ comme par exemple la production des valeurs de contrôle, 
les différents marquages d'ID et ce qu’on appelle les GAPs, Il observe 
d'autre part quand l'orifice d’index marque le début d'une piste et il 
reconnaît par lui-même si la disquette est ou non protégée contre 
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l'écriture, Si ce composant rusé doit formater une piste, il a d'abord 
besoin de l'instruction correspondante, Cette instruction lui dit (entre 
autre) quelle piste il doit formater, sur quel lecteur, quelle est la 
taille des secteurs à produire et quelle valeur il doit utiliser comme 
octet de remplissage, L’octet de remplissage est une valeur qui figure, 
après un formatage réussi, sur tous les secteurs, en guise de données. 

Il est évident que le moteur du lecteur doit être mis en marche pour un 
formatage, Dès donc qu'après l'instruction l’orifice d'index est reconnu, 
commence la procédure de formatage véritable. Le FDC attend du processeur 
& octets pour chaque secteur à formater, Pour chaque secteur doivent être 
indiqués les numéros de piste, de tête et de secteur ainsi que la taille 
du secteur, Du fait que le numéro de secteur doit être également indiqué 
pour chaque secteur, les secteurs peuvent être placés sur la disquette 
dans un ordre fixé par le programmeur. Cela peut considérablement 
accélérer les accès ultérieurs. 


Mais nous en dirons plus à ce sujet plus tard. Nous allons maintenant 
voir ce que tout cela a à voir avec l'instruction 886. 

L'instruction 886 attend des paramètres dans différents registres, comme 
les routines de lecture et d'écriture de secteur que nous avons décrites 
précédemment, Il y a d'abord la piste voulue, Cette valeur est transmise 
à travers le registre D, Dans le registre E doit se trouver la valeur du 
lecteur voulu, Le registre C reçoit le numéro du premier secteur à 
formater et le registre double HL est utilisé comme pointeur sur une 
table, 

Les trois premiers registres et leurs fonctions ne se distinguent pas de 
ceux des routines décrites précédemment. Mais le registre double HL a lui 
aussi une fonction comparable à celle qu'il a pour l'écriture des 
données, En effet, dans la table adressée par HL figurent pour chaque 
secteur à formater 4 octets qui sont les valeurs déjà indiquées pour la 
piste, la tête et le lecteur, le numéro de secteur et la taille du 
secteur, L'exemple de programme suivant vous montre comment une piste 
isolée peut être formatée. 


100 3 FORMATAGE D'UNE PISTE ENTIERE 

110 START: LD E,DRIVE snuméro de lecteur voulu dans le 
registre E 

120 LD D, TRACK numéro de piste dans le registre D 

130 LD C,841 :premier numéro de secteur sur la 
piste 

140 LD HL, FTAB stable des 32 octets pour le FDC 

150 RST 818 :Call Format 887 
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160 
170 
180 


190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
40 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


FORMAT: 


FTAB: 


SECTI: 


SECT2: 


SECT3: 


SECT4: 


SECTS: 


SECTE: 


SECT7: 


SECTB8: 


SECT9: 


DEFW 
RET 
DEFW 


DEFB 
EQU 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


FORMAT 


&C652 


7 

$ 
TRACK 
HEAD 
&41 


TRACK 
HEAD 
&43 


TRACK 
HEAD 
&u5 


TRACK 
HEAD 
&47 


TRACK 
HEAD 
g49 


TRACK 
HEAD 
&u42 


TRACK 
HEAD 
euu 


TRACK 
HEAD 
8&46 


TRACK 
HEAD 
&48 


adresse de far adress de trois octets 
:la piste est formatée 

adresse de la routine 887 dans 
1 'AMSDOS 

adresse nécessaire pour sélection ROM 


numéro de piste pour ID de secteur 
numéro de tête du lecteur 

numéro du secteur 

;:taille du secteur pour l’ID 
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2.2,2,7 L'INSTRUCTION 887 SEEK TRACK (RECHERCHE DE PISTE) 


Bien que toutes les instructions avec accès direct à la disquette vues 
jusqu'ici se déplacent d'elles-mêmes vers la piste voulue, ii peut être 
intéressant pour certaines applications de pouvoir positionner la tête 
sur une piste déterminée, Cette tâche est accomplie par l'instruction 
887. 

Pour le positionnement, deux paramètres seulement sont requis, Il faut 
d'abord indiquer le numéro du lecteur voulu, Le second paramètre exigé 
est le numéro de la piste vers laquelle la tête doit se déplacer. 

Pour cette routine également, les programmeurs ont utilisé les registres 
comme interface. Le numéro de lecteur doit être transmis dans le registre 
E alors que le registre D doit contenir le numéro de piste. 

L'utilisation des flags comme marque du succès de la routine fonctionne 
également comme à l'habitude, Un Carry mis vous indique que la piste 
recherchée sur la disquette a été trouvée. 

Comme le programme nécessaire ne se distingue pas non plus 
fondamentalement des routines présentées précédemment, nous renoncerons 
ici pour une fois à le réécrire. 


2.2,2,8 L'INSTRUCTION 888 TEST DRIVE 


Voulez-vous savoir dans un programme machine si un lecteur de disquette 
déterminé est disponible? Rien de plus simple que cela, L'instruction 888 
révèle toutes les informations importantes sur le lecteur sélectionné. 
Cette routine représente toutefois une exception dans une certaine mesure 
puisqu'elle n'attend pas l'indication du lecteur à tester comme 
d'habitude dans le registre E mais dans l’accumulateur. 


Au retour de cette routine les flags et le contenu de l'accumulateur 
permettent de déterminer si le lecteur de disquette sélectionné est 
disponible, En cas d'exécution correcte de la routine, le flag Carry sera 
mis. L'’accumulateur contient alors le contenu du registre d'état O du 
FDC. La seule chose intéressante à cet égard c'est que si le lecteur de 
disquette sélectionné est disponible l'accumulateur contiendra O0 pour le 
drive À ou 1 pour le drive B, 


Vous trouverez une explication détaillée des autres valeurs, qui 


surviennent en cas d'erreur, dans le chapitre sur la programmation du 
FDC, 
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2.2,2,9 L'INSTRUCTION 889 RETRY COUNT 


Si la tête doit être positionnée sur la disquette sur une piste 
déterminée, cela peut être réalisé très aisément avec l'instruction 887. 
Avec cette instruction on indique en effet au controller la piste voulue, 
Un registre spécial du FDC contient le numéro de piste actuel et le FDC 
détermine à partir de cette valeur et de la nouvelle piste indiquée le 
nombre d'impulsions nécessaires pour le stepper motor du lecteur de 
disquette. Après que le lecteur ait déplacé la tête de lecture/écriture 
du nombre de pas correspondant dans la direction voulue, le FDC lit 
automatiquement le numéro de piste qui a été placé sur la piste lors du 
formatage, 

Si le numéro Iu correspond au numéro voulu, l'instruction s'est achevée 
avec succès, Tout autre est le cas où aucune information ne peut être lue 
ou bien où le numéro de piste lu est différent du numéro voulu. Dans ce 
cas une nouvelle tentative pour trouver la piste voulue sera entreprise. 
C'est exactement ici qu'intervient l'instruction 889, Cette instruction 
permet de fixer le nombre de tentatives de lecture après positionnement. 
L'AMSDOS prévoit une valeur par défaut de 10 tentatives, C'est 
normalement suffisant, Il peut toutefois arriver qu'il soit nécessaire 
d'augmenter ce nombre. 

La nouvelle valeur voulue est transmise dans l'accumulateur à la routine 
889, Il faut cependant noter à cet égard que la valeur 0 est comprise 
comme la valeur maximale 256, Il ne sert pas à grand chose d'employer des 
valeurs de 1 à 9 mais on peut par contre ressusciter parfois des 
disquettes présentant des problèmes de lecture en utilisant un nombre de 
tentatives de lecture supérieur à 10. 


Pour expérimenter rapidement et sans assembleur les effets de cette 
routine, vous pouvez essayez de POKEr la valeur O0 dans la case mémoire 
8&BE66. Cela revient à l'appel de l'instruction 889 avec transmission de 0 
à travers l’accumulateur, Si vous placez maintenant une disquette brute, 
non formatée dans le lecteur, et que vous essayez de faire afficher le 
catalogue, vous entendrez très distinctement comment la tête “s’acharne" 
sur la disquette pour trouver la piste voulue, Si vous POKEz par contre 
un 1 dans la case mémoire &BE66, vous verrez que le lecteur de disquette 
se donne beaucoup moins de mal pour essayer de trouver des données sur 
cette disquette vide. 
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2,3 LES MESSAGES D'ERREUR DES ROUTINES DISK 


Rien ni personne n’est parfait, L'AMSDOS doit donc lui aussi être prêt à 
faire face dans tous les endroits importants à des erreurs de formes tout 
à fait différentes, Lorsque des erreurs sont constatées, elles sont 
indiquées à l'utilisateur sous une forme ou une autre. 

Pour autant que cela soit possible, les programmeurs ont essayé d'obtenir 
une très large compatibilité avec le travail sur cassette. Le meilleur 
exemple est à cet égard l'état des flags Zéro et Carry lors d'une 
exécution réussie, Comme pour les routines cassette correspondante, le 
flag Carry est en effet mis et le flag Zéro annulé dans ce cas. Les 
erreurs qui peuvent être détectées de même manière par les deux types de 
routines sont indiquées par le fait que les deux flags Carry et Zéro sont 
annulés. 

Les erreurs qui ne peuvent être annoncées que par le lecteur de disquette 
sont indiquées par le fait que le flag Zéro est mis. En Basic 1.0 cet 
état du CPC 464 est interprété comme si la touche ESC avait été appuyée 
lors d'une opération cassette. Le programme en cours est donc interrompu 
et le message BREAK est sorti. En Basic 1.1, il est heureusement possible 
d'intercepter également ces erreurs avec ON ERROR GOTO, sans interruption 
du programme, Dans ce cas, la variable système DERR indique quelle erreur 
s'est produite. DERR ne correspond cependant PAS à la valeur de 
l'accumulateur après la routine disquette. 

Nous allons maintenant étudier de plus près ce contenu de l’accumulateur 
car il est très important pour les programmeurs en assembleur. Les 
valeurs sont les mêmes pour le 464 et pour le 664. 


&0E FILE NOT OPEN AS EXPECTED, 

Ce message d'erreur peut être provoqué par des actions très différentes. 
Ce message survient en effet lorsque vous passez dans un fichier d'entrée 
d'une possibilité de lecture des données à l'autre. Vous obtenez 
également ce numéro d'erreur lors de la fermeture du fichier si vous avez 
appelé plus d'une fois la routine DISK OUT DIRECT. 


&OF HARD END OF FILE, 

Ce message d'erreur est sorti lorsque vous demandez d'autres données 
après la fin du fichier et que le buffer devrait être rempli avec de 
nouvelles données de la disquette, 


&1A SOFT END OF FILE. 


Ce message signale que vous avez atteint la fin du fichier. Vous devriez 
maintenant le fermer. 


AIT E 


&20 BAD COMMAND. 

Vous obtenez ce message par exemple lors d'entrées incorrectes de noms de 
fichier, Cela comprend par exemple les points d'interrogation dans le nom 
de fichier pour OPENIN. L'indication de lecteurs non autorisés ou de 
numéros user trop élevés provoque également ce message d'erreur. 


&21 FILE ALREADY EXISTS. 

Ce message d'erreur ne survient qu'en relation avec le changement de nom 
d'un fichier. Si vous inversez l'ordre des noms de fichier dans une 
instruction de changement de nom, AMSDOS sortira ce message d'erreur. 


&22 FILE DOESN'T EXIST. 

On obtient ce numéro d'erreur lorsqu'on tente d'accéder à des fichiers 
qui n'existent pas, La cause de l'erreur peut être que vous vous êtes 
trompé de disquette ou que le nom de fichier n'a pas été entré 
correctement. 


823 DIRECTORY FULL, 

Une fois que 64 fichiers ont été entrés, le catalogue (directory) est 
plein, Même s'il y a encore des blocs libres sur la disquette, plus rien 
ne peut être sauvegardé sur la disquette. 


&24 DISC FULL, 
Tous les blocs de la disquette sont affectés à des fichiers, La 
sauvegarde de données supplémentaires a été interrompue. 


825 DISC HAS BEEN CHANGED WITH FILES OPEN. 

Si vous obtenez ce numéro d'erreur lors de la lecture de données, cela 
n'est pas très grave. Les conséquences deviennent cependant fatales si 
vous changez de disquette alors qu'un fichier de SORTIE est encore 
ouvert, Ce fichier ne sera pas alors correctement fermé. Vous pouvez 
perdre jusqu'à 2047 octets qui n'ont pas été transférés du buffer sur la 
disquette. 


826 FILE IS READ ONLY. 

Ce numéro d'erreur apparaît dans l'accumulateur lorsque vous avez tenté 
de modifier le nom d'un fichier protégé contre l'écriture ou lorsque vous 
avez tenté de supprimer un tel fichier. 


Il convient d'ajouter après ces numéros d'erreur une remarque 


essentielle, Si l'erreur a déjà été communiquée, si donc elle a déjà été 
sortie sur l'écran, le bit 7 de son code d'erreur est mis. Le numéro 


V2 


d'erreur 824, Disk full, deviendrait donc par exemple &8Au, 


Outre les erreurs ‘logiques’ de 1l'’AMSDOS, il y a cependant également les 
erreurs ‘physiques’ du FDC. Ces erreurs concernent par exemple les 
erreurs de lecture, les erreurs d'écriture à cause de la protection 
contre l'écriture ou le cas où aucune disquette n'a été placée dans le 
lecteur, Ces messages d'erreur peuvent être reconnus par le fait que le 
bit 6 du numéro d'erreur est mis, Les erreurs possibles sont marquées par 
les bits du numéro d'erreur, La signification des différents bits est: 


BIT O ADRESS MARK MISSING. 
Cette erreur signale une disquette non formatée. 


BIT 1 NOT WRITABLE. 

La disquette est protégée contre l'écriture au moment d'un accès en 
écriture. Notez que cette erreur ne survient pas encore lors d'un OPENOUT 
car OPENOUT n'est pas encore écrit sur la disquette. 


BIT 2 NO DATA, 

Le secteur indiqué n‘a pas pu être trouvé. Cette erreur ne se produira 
qu'en liaison avec des routines programmées par l'utilisateur pour la 
lecture et l'écriture directe de secteurs. 


BIT 3 DRIVE NOT READY, 

Il n’y a probablement pas de disquette dans le lecteur appelé. Une autre 
possibilité pouvant entraîner cette erreur est un accès à un lecteur non 
présent. 


BIT 4 OVERRUN ERROR. 

Cette erreur devrait être particulièrement rare car elle ne peut en fait 
pas survenir étant données les routines de secteur existantes, Si vous 
etes cependant gagné par l'ambition d'écrire vos propres routines de 
lecture/écriture directe de secteur, cette erreur peut alors par exemple 
survenir si votre routine est trop lente ou si vous négligez d'interdire 
les interruptions, 


BIT 5 DATA ERROR, 
Ce numéro d'erreur est le pire qui puisse survenir lors du travail sur 
disquette. Dans ce cas, en effet, le secteur indiqué n’est pas lisible, 


Pour ces messages d'erreur également, le bit 7 signale si l'erreur a déjà 
été communiquée. 


ce TTSne 


CHAPITRE 3: DONNEES TECHNIQUES DU LECTEUR DE DISQUETTE ET DE LA DISQUETTE 


3.1 LE DISK CONTROLLER 


Alors que sur le CPC 664 l'électronique de l'ordinateur et l'interface 
disquette sont intégrées dans le boftier de l'ordinateur, sur le CPC 464, 
l'électronique du lecteur de disquette figure dans un petit boftier 
enfiché dans le port d'extension. Nous allons décrire ici l'électronique 
de l'interface disquette externe dont vous trouverez le schéma dépliable 
en annexe de cet ouvrage, Les connexions sont sensiblement les mêmes pour 
les deux ordinateurs, de sorte que même les possesseurs d'un CPC 464 
peuvent profiter de la description suivante, Nous évoquerons les 
principales différences lorsque nous  traiterons des endroits 
correspondants, Pour le moment, le schéma de fonction 3.1,1 suffira à 
nous donner un aperçu des éléments de l'interface disquette, 


Le point central du controller board est constitué par le floppy disk 
controller (FDC)  PD 765, Ce circuit intégré constitue l'interface entre 
les lecteurs et le processeur du CPC. On peut certes tout à fait 
construire des lecteurs de disquette sans FDC mais la grande 
‘intelligence propre’ du FDC simplifie grandement la construction. 
L'électronique nécessaire ainsi que l'importance du logiciel 
d'exploitation sont considérablement réduites par l'emploi d’un FDC. Un 
exemple éclairera ce point. 

Le lecteur de disquette 1541 de la firme Commodore que beaucoup d'entre 
vous connaissent certainement comme lecteur de disquette du Commodore 64 
est un lecteur de disquette construit sans FDC, Sans compter la lenteur 
de la transmission des données dûe à la construction même du lecteur 
(lenteur qui ne peut que faire sourir les possesseurs d'un CPC), 
l'investissement électronique pour ce lecteur est beaucoup plus important 
que sur le lecteur de disquette du CPC. L’électronique digitale du 1541 
contient un processeur propre, des circuits intégrés périphériques de 40 
pôles et une masse de circuits intégrés TTL de toute sorte. Cette masse 
de composants correspond à celle que requiert un CPC 664 complet! 

Le logiciel d'exploitation du 1541 est, avec 16 K, deux fois plus grand 
que l'AMSDOS, Il est évident que les développeurs (pour des raisons de 
confort) et les commerçants (pour des raisons de coût) recourent 
volontiers aux FDCs dont l'utilisation est si pratique, 

Avant que nous n'ôtions pour ainsi dire dans les pages suivantes le 
couvercle du FDC, nous allons Jeter un regard sur le schéma et examiner 
les fonctions de base, 
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Bus d'Adresse 


Bus de Uonnées 


LECTEUR 





FIGURE 3.1,1 
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3.1.1 DESCRIPTION DE L'ELECTRONIQUE DU FLOPPY CONTROLLER BOARD 


L'électronique complète du controller externe du 464 se compose de 12 
circuits intégrés, 2 transistors, 20 résistances, 15 condensateurs et une 
diode, le nombre de composants étant comparable sur le 664, Ce petit 
nombre de composants n’a pu être obtenu que par la haute intégration de 
trois circuits intégrés. Il s'agit du FDC, du séparateur de données et de 
la ROM avec 1'’AMSDOS. Nous avons déjà parlé des deux premiers circuits 
intégrés. Intéressons-nous à 1a ROM AMSDOS, Les indications sur les noms 
des circuits intégrés correspondent à ceux du disk controller du 464, Il 
n'y a cependant sur ce plan pas de différences fonctionnelles importantes 
entre 464 et 664, 


Bien que sur le CPC les ROMS externes ne puissent avoir qu'une taille de 
16 K, le fait qu'un circuit intégré de 28 pôles ait été employé peut 
légitimement faire supposer que la ROM intégrée est une ROM de 32 K. 

Nous ne savons pas à vrai dire s'il s’agit effectivement d'une ROM si 
généreusement employée ou s'il s’agit simplement d'un habitacle spécial. 
Toutefois l'emploi d'une ROM aussi grande comporte un avantage essentiel. 
Comme la ROM réside sur un socle de 28 pôles, il est possible de modifier 
le système d'exploitation et de le remplacer sans bricolage par une EPROM 
16 K, 

Et il y a dans les 16 K utilisés plus de place qu’il n'en faut pour vos 
propres extensions. L'AMSDOS n'occupe qu’à peine 8 K de la place mémoire 
disponible, Les 8 K restants sont nécessaires pour LOGO qui ne laisserait 
Sinon presque plus de place pour les programmes LOGO sans l'emploi de 
cette zone de la ROM, Si l'on accepte cependant de renoncer au langage de 
programmation LOGO, un système d'exploitation étendu du lecteur de 
disquette peut donc avoir jusqu’à une taille de 16 K,. 


Pour adresser 16 K, 11 faut au total 14 canaux d'adresse, Ces 14 
connexions de la ROM sont reliées directement à la fiche s’enfichant dans 
le port d'extension du CPC. Les 8 canaux de données sont également placés 
directement, sans circuits intégrés buffer, sur le bus de données du 
processeur, Le chip est activé par le signal ROMEN du port d'extension du 
CPC, Les sorties de données ne sont toutefois effectivement placées sur 
le bus de données que lorsque se produit un low (niveau faible) du signal 
0E (Output  Enable: autoriser sortie). Cette distinction est 
particulièrement importante sur le CPC puisque le signal ROMEN devient 
également low lors d'accès du processeur au kernal et au Basic. 

La production du signal OE est relativement simple du point de vue de 
l'électronique. Un instruction OUT sur l'adresse &DFxx avec une valeur de 
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7 suffit pour que la sortie Q (pin 5) du flip-flop IC 112-1 devienne 
high. 

L'octet de donnée 7 (cela correspond à l'adresse de sélection de ROM pour 
ce qu’on appelle les far calls) entièrement décodé par les triples portes 
logiques Nor IC 111-1 et 111-2, la porte logique Nand IC 110-3 et les 
trois portes logiques XOR IC 109-1 à 109-3, Le décodage de l'adresse de 
port &DFxx est par contre effectué de façon très simple et incomplète. On 
teste simplement pendant l'instruction OUT si le bit d'adresse A13 est 
bien sur un niveau lon. 

Si ces deux conditions sont remplies, un high apparaît sur la sortie du 
flip-flop dont nous avons parlé. Toute autre valeur sur le bus de données 
provoque un low sur la sortie du flip-flop et ainsi la déconnexion de la 
ROM AMSDOS, La sortie du flip-flop est reliée aux deux portes logiques IC 
110-1 et IC 106-1. L'autre entrée des deux portes logiques est reliée au 
canal d'adresse A15,. Si maintenant le processeur veut accéder, alors que 
la sortie du flip-flop est mise, à une adresse de la ROM (ce qu’indique 
le signal ROMEN) située dans la zone de &C000 à &FFFF, la sortie de l'IC 
110-1 devient low et la ROM AMSDOS obtient un niveau low sur la connexion 
0E, Simultanément, la sortie de la porte logique IC 106-1 devient high et 
la ROM Basic située à ces adresses est déconnectée à travers la diode 
D101. 


Si vous suivez encore une fois sur le schéma les branchements de décodage 
de l'adresse de sélection de ROM, vous constatez que les trois portes 
logiques XOR de 1’IC 109 sont placées ensemble, avec une entrée chacune, 
sur la masse à travers le pont LK 1. Que se passe-t-il donc lorsque ce 
pont n'est pas fermé? 

Dans ce cas l'adresse de sélection de ROM ne sera plus 7 mais O! S'il n'y 
avait que cela, ce ne serait pas sans grande conséquence. Beaucoup plus 
intéressant est le fait que l'AMSDOS teste l'adresse de sélection de ROM 
lors de l’initialisation, c'est-à-dire lors d'un Reset où à la mise sous 
tension, Si une valeur de O0 est trouvée, on essaie automatiquement de 
charger et de lancer automatiquement CP/M à partir de la disquette. Si 
dans ce cas le programme CP/M ‘AMSDOS,COM’ n'est pas disponible, il n'est 
pas possible de travailler avec l'ordinateur sous le Basic Locomotive. 
Tout nouveau Reset ne fait que lancer à nouveau CP/M. Mais même avec le 
programme ‘AMSDOS.COM', seul le Basic cassette peut être utilisé car les 
modifications de vecteurs nécessaires des routines CAS ne peuvent être 
exécutées dans ce cas. 


Le second flip-flop que comporte 1'’IC 112 est également utilisé, C'est 
avec ce flip-flop que sont commandés les moteurs du lecteur de disquette. 
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L'entrée de données du flip-flop est placée sur le bit de donnée 0. 
L'impulsion CLK pour le flip-flop est obtenue à travers plusieurs portes 
logiques à partir des bits d'adresse A7, A8 et A10 ainsi que des signaux 
IORQ et WN. Les bits d'adresse indiqués doivent être lon pour basculer le 
flip-flop. Cela donne une adresse de port de &8FA/7x, dans l'AMSDOS le 
flip-flop est appelé à travers le PORT &FA/E. 


Les portes logiques pour décoder l'adresse de port du flip-flop du moteur 
sont également utilisées pour le décodage des adresses du FDC. Dans ce 
cas cependant, le bit d'adresse A8 doit être high pour générer le signal 
CS, Cela donne l'adresse de port &FB/7X. Comme le bit d'adresse A0 du 
processeur est utilisé pour la sélection des deux registres du FDC, on 
obtient les adresses de port &FB7E pour le registre d'état principal et 
8&FB7F pour le registre de données, 


Un autre branchement intéressant du controller est celui construit avec 
les trois portes logiques IC 105-2, IC 110-4 et IC 109-4, Sur l'entrée 
pin 13 de la porte logique AND IC 105-2 se trouve la fréquence d'horloge 
du processeur fournie par le CPC, une fréquence de 4 MHz, Ce circuit 
intégré ne constitue qu'un buffer du signal d'horloge. Sur la sortie pin 
11 de ce buffer est d'une part placée l'entrée pin 4 de la porte logique 
IC 109-4 mais une combinaison de deux résistances, d'un condensateur et 
de la porte logique NAND IC 110-4 est en outre encore branchée sur la 
sortie. La sortie de la porte logique NAND est branchée sur la deuxième 
entrée de la porte logique XOR, pin 5. 

Si l’on examine le diagramme logique d’une porte logique XOR, on voit que 
la sortie d’une tel élément est toujours lon si les deux entrées on le 
même niveau, La sortie devient par contre high lorsque les niveaux sont 
différents. 

S'il n'y avait pas dans ce branchement la combinaison RC et la porte 
logique NAND, les deux entrées auraient toujours systématiquement le même 
niveau, la sortie du XOR resterait low. Mais comme le signal d'horloge 
est un peu ralenti par la combinaison RC et la porte logique NAND, il en 
résulte un effet intéressant de ce branchement. La fréquence d'entrée de 
4 MHz est doublée. Sur la sortie du XOR, pin 6, nous obtenons une 
fréquence d'horloge de 8 MHz. 

C'est avec cette fréquence qu'est commandée l'entrée d'horloge du 
séparateur de données qui produit par division de fréquence, à partir de 
ce signal, les deux fréquences d'horloge nécessitées par le FDC. Comme la 
connexion MINI (pin 3 du 9229) est placée sur la masse, la fréquence du 
Signal CLK du FDC (pin 19) est de 4 MHz, le WCK (pin 21 du 765) est de 
500 KHz, 
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Toutes les autres portes logiques employées dans le controller board font 
Simplement office de buffer des signaux envoyés au lecteur de disquette. 
Il ne reste en fait d'intéressant que la production des deux signaux de 
Sélection de lecteur de disquette, Bien que le FDC dispose de deux 
connexions séparées pour la production du Drive Select (sélection de 
lecteur), une seule connexion est utilisée, Le signal de sortie du pin 
29, USO, est utilisé comme signal de sélection pour le lecteur B à 
travers une porte logique NAND branchée comme inverseur et comme signal 
de sélection pour le lecteur À à travers une autre porte logique 
NAND/inverseur. Suivant la polarité du signal USO, c'est donc le lecteur 
A ou le lecteur B qui est actif. Cette structure facilite vraiment les 
choses pour les programmeurs de l'AMSDOS. I1 suffit donc de décrémenter 
la valeur de sélection de lecteur pour déterminer quel lecteur doit être 
activé. Si la valeur n'est pas nulle après décrémentation, c'est que 
c'était le lecteur À qui était actif, si la valeur est par contre nulle, 
c'est que c'est le lecteur B qui est actif. 


3.1.2 LE FDC 765 


Le FDC exploité par les firmes NEC sous le nom de PD 765, ROCKHELL sous 
le nom de R 6765 et INTEL sous le nom de 8765, peut être considéré comme 
un microprocesseur très spécialisé, Les possibilités de ce circuit 
intégré sont si étendues et si complexes que ce qualificatif n'est 
certainement pas exagéré. 


Le format de données utilisé par le FDC correspond au format IBM 3740 en 
densité simple et au format IBM System 84 en double densité. De ce fait, 
les disquettes Commodore ou Apple par exemple ne peuvent malheureusement 
pas être lues ni écrites. 

Avec ces 40 pins, il fournit tous les signaux nécessaires pour exploiter 
les lecteurs du marché des tailles 8”, 5 1/4" et 3", Les signaux de 
commande disponibles permettent au développeur de connecter ce FDC à 
presque n'importe quel processeur. Deux possibilités fondamentales de 
connexion et d'exploitation sont offertes. La première méthode est 
l'exploitation DMA. En liaison avec un DMA controller, le FDC peut 
prendre en charge le contrôle de la mémoire du système informatique pour 
le transfert de données en lecture et en écriture. Il retire alors de la 
mémoire, à l'aide du DMA controller, les nouvelles données nécessitées ou 
écrit dans la mémoire, également en contournant le processeur, les 
données lues sur la disquette, Cette très rapide méthode de transfert de 
données n'est cependant pas utilisée sur le CPC et nous ne l'avons 
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évoquée que par souci d'’exhaustivité. 


Avec la seconde méthode, celle utilisée sur le CPC, le transfert de 
données est pris en charge par le processeur. Pour cette seconde méthode, 
il faut cependant à nouveau distinguer entre deux possibilités 
d'exploitation du FDC. 

ll y a d'abord la méthode des interruptions. Pour chaque transfert de 
données, une interruption est alors produite. Dans la routine 
d'interruption du processeur doit alors être fourni ou lu par le 
processeur le prochain octet de donnée ou d'instruction. Du fait de la 
structure électronique du CPC, il ne pouvait non plus être question de 
cette méthode, de sorte que les développeurs ont choisi la méthode 
polling, Le processeur doit alors examiner régulièrement dans les 
registres du FDC quelle est la prochaine action demandée par le FDC, 


Mais considérons tout d'abord un aperçu des données techniques du 765. 
Gardez cependant à l'esprit que les développeurs du controller board 
n'ont pas utilisé toutes les possibilités du 765. 

* longueur de secteur programmable 
toutes les données du lecteur programmables 
jusqu'à quatre lecteurs connectables 
transfert de données au choix, en mode DMA ou pas en mode DMA 
connectable à presque tous les types de processeur courants 
alimentation électrique simple 5 volts 
horloge monophase simple de 4 ou 8 MHz 
* habitacle de 40 pôles du circuit intégré 


KO % *X *X * 


Nous allons maintenant nous intéresser un peu plus en détail au dernier 
point de cette brève présentation. 


3,1.2,1 L'AFFECTATION DES CONNEXIONS DU FDC 


Les connexions du FDC 765 peuvent être subdivisées en plusieurs groupes, 
Le premier groupe de connexions représente l'interface avec le processeur 
système, C'est donc à travers ces connexions que le FDC est commandé par 
le processeur, 


Le deuxième groupe n'est nécessaire qu'en liaison avec l'exploitation 


DMA. C'est à travers ces signaux que communiquent le DMA controller et le 
FDC, 
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L'interface avec les lecteurs de disquette est constituée par le 
troisième groupe, qui est avec 19 connexions le groupe le plus important 
en nombre. 


Dans le quatrième et dernier groupe peuvent être regroupées les 
connexions pour l'alimentation électrique et l'horloge. 


Commençons l'examen des connexions par le premier groupe, l'interface 
avec le processeur, 


L'interface avec le processeur 

RESET : L'entrée RESET du FDC est active high. En exploitation 
normale, cette connexion est placée sur masse. Un high sur 
le pin RESET place le FDC dans un état déterminé. 


CS* : CHIP SELECT. Un ion sur ce pin sélectionne le FDC,. Ce 
n'est qu'avec CS* = low que RD* et WR* deviennent valables 
pour le FDC. Comme la production du CS est à la libre 
disposition du développeur, le FDC peut être appelé au 
choix Memory-Mapped, donc comme élément de la zone de la 
mémoire, ou à travers des adresses de port. 


RD* : READ*, Cette connexion doit être reliée au signal RD* du 
processeur. Dès que le processeur veut lire des données à 
partir du FDC, ce canal est mis sur 1ow. 


WR* : WRITE*, De même que le canal RD* signale des accès en 
lecture du processeur, un Ion sur WR* indique que le 
processeur écrit des données ou des instructions dans le 
FDC, 


AO : ADRESS LINE O0, Le FDC ne dispose que de deux adresses 
pouvant être appelées de l'extérieur, La distinction entre 
les deux adresses est effectuée avec le signal A0. Ce 
canal est normalement relié au bit d'adresse le plus bas 
du processeur. 
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UCC (+5) 


RIU/SFEK 


{CT/DIR 


FLTR/STEP 


HOLD 


AEADY 


LUPAT/2 SIDE 


FLT/TRKO 


PsSo 


PS1 


SiDE 


MFM 


WE 


SYNC 


* ADATA 


WINOOU) 


UCLK 


DBO - DB7 


INT 


: DATABUS 0-7, Ces connexions du FDC sont reliées au bus de 


données du système. Toutes les instructions et données 
sont transportées à travers ces huit connexions bi- 
directionnelles. La direction des données est chaque fois 
déterminée soit par le processeur, soit par le DMA 
controller en mode DMA,. 


: INTERRUPT. A travers cette connexion, le FDC peut produire 


une interruption du processeur du système, Les 
interruptions sont produites à chaque transfert d'octet 
(non connecté sur le CPC) 


Signaux pour le mode DMA (inutilisé sur le CPC) 


DRQ 


DACK* 


TC 


: DMA REQUEST, À travers cette connexion, le FDC signale au 


DMA controller qu'un accès à la mémoire doit se produire. 
A la prochaine occasion possible, le DMA controller 
prendra en charge le bus système. Le processeur est alors 
déconnecté. 


: DMA ACKNONLEDGE. Ce signal indique au FDC que le DMA 


controller a pris en charge le bus et a maintenant 
commencé le transfert de données. 


: TERMINAL COUNT, Un niveau high sur cette connexion 


interrompt le transfert de données vers et à partir du 
FDC. Bien que cette connexion soit essentiellement 
utilisée en mode DMA, le transfert de données peut 
également être interrompu à travers cette connexion dans 
les systèmes commandés par interruption. 


L'interface disquette 


uso, USi 


HD 


: UNIT SELECT 0/1, A travers ces deux connexions peuvent 


être connectés directement deux lecteurs de disquette, 
mais avec l'aide d'un décodeur deux-à-quatre, ce sont même 
quatre lecteurs qui peuvent être connectés. C'est à 
travers ces connexions qu'est appelé chaque fois le 
lecteur voulu pour l'écriture ou la lecture de données. 


: HEAD SELECT, Comme le FDC est conçu pour l'exploitation de 


lecteurs de disquette à double tête de lecture, la 
sélection de la tête peut s'effectuer à travers cette 
connexion lorsqu'on utilise de tels lecteurs. 
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HDL 


IDX 


RDY 


WE 


RN/SEEK 


FR/STP 


FLT/TRO 


: HEAD LOAD, Ce signal est employé presque exclusivement sur 


les lecteurs 8”, Les moteurs de ces lecteurs ne sont pas 
mis en marche quand c’est nécessaire, mais ils tournent 
normalement sans arrêt. Mais pour ménager malgré tout la 
disquette et la tête d'écriture, la tête n'est normalement 
‘chargée’, à travers un aimant qui l'amène près de la 
surface de la disquette, que lorsque c'est nécessaire. La 
commande de l’aimant s'effectue alors au moyen de HDL, 


: INDEX. Le signal produit par le faisceau lumineux est 


placé sur cette connexion. Il signale au FDC le début 
physique d'une piste. 


: READY. Le signal READY fourni par le lecteur de disquette 


indique qu'une disquette se trouve dans le lecteur de 
disquette et que celle-ci tourne à une vitesse minimum 
déterminée, Ce n'est qu'après apparition du READY que le 
FDC accède au lecteur de disquette. 


: WRITE ENABLE. Cette sortie du FDC doit être high pour que 


des données puissent être écrites sur la disquette. 


: READ WRITE/SEEK, Un lecteur de disquette produit au total 


plus de signaux qu'il n'y en a de disponibles pour 
l'interface disquette sur un socle de 40 pôles, Toutefois, 
tous les signaux ne sont pas nécessaires en même temps à 
tout moment. Huit de ces signaux disquette ont été pour 
cette raison séparés en deux groupes qui peuvent être 
placés de façon sélective sur quatre connexions du FDC. Le 
FDC sélectionne de lui-même à travers la connexion RW/SEEK 
les signaux dont il a besoin à un moment donné. 


: FIT RESET/STEP, C'est le premier des quatre doubles 


Signaux du FDC, Cette sortie a différentes significations 
suivant l'opération exécutée, D'une part cette connexion 
permet de restaurer le flip-flop d'erreur qui existe sur 
certains lecteurs, La seconde utilisation, beaucoup plus 
courante est la commande de l'entrée des pas du lecteur. À 
chaque déplacement de tête, les impulsions nécessaires 
sont fournies sur cette connexion. 


: FAULT/TRACKO, Cette entrée peut elle aussi évaluer deux 
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LCT/DIR 


WP/TS 


WDA 


PSO, 1 


signaux différents, Si une opération SEEK (voir 
Programmation du FDC) est exécutée, le signal trackO du 
lecteur est attendu sur cette connexion. Ce signal est 
produit par un faisceau lumineux ou par un commutateur 
mécanique, lorsque la tête de lecture/écriture se trouve 
sur la piste physique 0. Le seconde fonction, le signal 
Fault est générée par certains lecteurs en cas d'erreur 
Elle peut étre à nouveau annulée par le FDC avec le signal 
FR/STP défini plus haut, Ce signal est contrôlé lors 
d'opérations Read/Write du FDC. 


: LOW CURRENT/DIRECTION. Les impulsions de pas de FR/STP 


indiquent bien sûr uniquement que la tête doit être 
déplacée, LCT/DIR détermine alors en mode Seek la 
direction du déplacement de la tête. La fonction LOH 
CURRENT est nécessaire lors de l'écriture des données. Ce 
signal permet de diminuer le flot d'écriture sur les 
pistes intérieures, Vous trouverez des détails sur ce 
signal dans la description des bases théoriques de la 
sauvegarde sur disquette. 


: WRITE  PROTECT/TWO SIDE, Indépendamment des diverses 


méthodes utilisées avec les différentes tailles de 
lecteurs de disquette, l’état de protection contre 
l'écriture est communiqué par le lecteur de disquette au 
controller, sous forme d'un signal. Ce signal est testé 
par l'entrée WP/TS lors des opérations de 
lecture/écriture, Le signal TS est testé lors des 
opérations Seek,. Il n'est nécessaire qu’en liaison avec 
les lecteurs à double tête de lecture. 


: WRITE DATA. Les données sérielles à écrire sont transmises 


à travers cette connexion au lecteur de disquette. Ce 
peuvent être aussi bien les données pour l'écriture d'un 
secteur que toutes les informations nécessaires lors du 
formatage. 


: PRE SHIFT 0/1, À travers ces connexions, le FDC indique 


pour le format à double densité (MFM) à une électronique 
appropriée comment le flot sériel de données doit être 
écrit sur la disquette. Les trois états possibles sont 
EARLY, NORMAL et LATE pour la précompensation. 
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RD 


RDW 


VCO 


MEM 


: READ DATA, Les informations lues sur la disquette sont 


entrées dans le FDC à travers cette entrée, C'est à partir 


de ce flot sériel de bits que les octets écrits à 
l'origine sont reconstitués. 


: READ DATA WINDOW, Ce signal est obtenu dans un séparateur 


de données à partir des données lues. Plus de détails dans 
le chapitre Bases de la sauvegarde sur disquette, 


: VCO SYNC. Ce signal est nécessaire pour la commande du VCO 


dans le séparateur de données PLL. 


: MFM MODE. Cette connexion signale si le controller 


travaille en format simple densité (MF) ou double densité 
(MFM). 


Alimentation électrique et signaux d'horloge 


Vcc 


GND 


CLK 


HCK 


: +5 Volts. C'est à travers cette connexion que le FDC 


reçoit son alimentation en courant électrique, La tension 
de 5 Volts doit étre constamment dans la zone de +-5 %. 
L'intensité de courant nécessaire est au maximum de 150 
mA, 


: GROUND. Connexion à la masse du FDC. 


: CLOCK. Le FDC a besoin d'une fréquence d'horloge, Suivant 


les lecteurs, cette fréquence doit être de 4 MHz (pour les 
5 1/4 et les formats plus petits) ou de 8 MHz (pour les 
8"). 


: WRITE CLOCK. La fréquence de ce signal doit être 


sélectionnée en fonction du format de données choisi, Pour 
MF, la fréquence doit être de 500 kHz, pour MFM, de 1 MHz. 
Cette fréquence détermine la vitesse de transmission des 
données vers et à partir du lecteur de disquette, 
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3.1,2,2 LA PROGRAMMATION DU FDC 765 


Le FDC 765 ne dispose vers l'extérieur que de deux adresses où registres. 
Le niveau du signal AO détermine quel registre est disponible. Si AO est 
sur la masse, on peut accéder au registre principal d'état, Ce registre 
principal d'état ne peut être que Iu, Un niveau haut sur AO autorise 
l'accès au registre de données, Le registre de données peut être écrit ou 
lu, C'est à travers ce registre que le FDC est programmé, que toutes les 
données de lecture/écriture sont transférées et que le données sont 
fournies au processeur dans la phase résultat. 


J1 faut distinguer pour les instructions du FDC trois phases 
fondamentales, La première phase est la phase instruction, Dans cette 
phase, tous les paramètres nécessaires pour l'instruction sont transmis 
au FDC. Pour certaines instructions, cela peut représenter jusqu'à 9 
octets. Dès que tous les octets de cette phase ont été communiqués au 
FDC, commence la phase exécution. Cela signifie concrètement que par 
exemple, après une instruction de lecture, les données arrivent 
maintenant de la disquette. Après que la phase exécution soit terminée, 
commence la dernière phase, la phase résultat, Pendant la phase résultat, 
le FDC fournit jusqu'à 7 informations d'état qui doivent toutes étre lues 
par le processeur, 

Le schéma indiqué ici ne vaut toutefois pas pour toutes les instructions. 
Pour certaines instructions, il n'y à pas de phase résultat alors que 
d'autres instructions n'ont pas de phase exécution. Il y a même une 
instruction qui ne dispose d'aucune de ces deux phases et qui se contente 
de la phase instruction, 


Avant que nous n'en venions à traiter les différentes instructions, nous 
allons d'abord Jeter un regard sur les informations d'état. 

Le FDC 765 dispose au total de 7 registres d'état. Le registre principal 
d'état occupe une adresse propre (A0=1ow) comme nous l'avons déjà indiqué 
et il ne peut qu'être lu. Un accès à ce registre est toutefois possible à 
tout moment, même lors du traitement de l'instruction. 

Les quatre autres registres d'état ne sont accessibles que dans la phase 
résultat de certaines instructions. Le premier octet dans la phase 
résultat de ces instructions indique l’état du registre d'état O (STO). 
Les états de ST1 et ST2 sont fournis ensuite comme octets deux et trois 
dans la phase résultat. L'état de ST3, le dernier registre d'état, ne 
peut être obtenu que sur demande particulière, avec une instruction 
spéciale dont la seule fonction est de fournir l'état de ST3. Nous 
étudierons un peu plus tard la signification des registres d'état. 
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Le FDC 765 dispose au total de 15 instructions différentes. Ce simple 
nombre montre déjà clairement que ce controller maîtrise plus de choses 
que la simple lecture/écriture. Nous allons maintenant examiner en détail 
quelles possibilités il offre. Si certaines notions non expliquées dans 
ce chapitre, telles que par exemple ID de secteur, Gap ou Data Adress 
Mark ne vous disent rien, vous pouvez vous reporter pour ces notions au 
chapitre sur l'écriture physique des données, 


LIRE LES DONNEES 

Avant que le FDC puisse lire des données à partir de la disquette, 9 
octets doivent lui être transmis dans la phase instruction. Après 
indication de toutes les données, le signal Head Load est activé et on 
attend le Head Load Time programmé, Le FDC lit ensuite les ID de secteur 
Jusqu'à ce qu'il rencontre l’ID du secteur indiqué ou jusqu'à ce que 
l'impulsion de l'index apparaisse pour la deuxième fois depuis le début 
de la recherche. Dans le premier cas il commence la phase exécution, dans 
le second cas il met fin à l'instruction et la phase résultat commence. 


Dès qu’il a identifié le secteur, il commence la phase exécution. Dans la 
phase exécution, les données sont lues sur la disquette et fournies au 
processeur à travers le bus de données, Les délais correspondants sont 
très courts. Environ toutes les 26 microsecondes un octet est disponible 
et doit être lu par le processeur. 


Après transmission du dernier octet du secteur voulu, une impulsion 
TERMINAL COUNT (TC, pin 16) doit être placée sur le FDC pour déclencher 
la phase résultat, En effet, en l'absence d’une impulsion TC, ce qu'on 
appelle un Multi Sector Read sera exécuté. 

Multi Sector Read signifie que le controller lit des données jusqu'à ce 
qu'il ait lu le dernier secteur de la piste. On peut par ailleurs 
renoncer à l'impulsion TC sous certaines conditions. Dans la phase 
instruction de ‘lire secteur’ et de quelques autres instructions, ce 
n'est pas seulement le secteur voulu qui doit être indiqué mais aussi le 
dernier secteur de la piste. Si alors les deux valeurs sont identiques, 
le FDC interrompt automatiquement la lecture à la fin du secteur voulu et 
commence la phase résultat. 
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INSTRUCTION 


EXECUTION 


RESULTAT 


MF 


SK 


W MT MF SK O0 O0 1 1 O Codes d'instruction 
W X OO XX X  X HD US1 USO 


MW, sise Numéro de piste----------- Information ID secteur 

NW. <2zès Adresse de tête----------- avant exécution de 

W ----- Adresse de secteur-------- l'instruction 

WW  ----- Taille du secteur--------- 

W --Dernier No secteur sur piste- 

W ---Vide entre ID et données---- 

W Longueur secteur si taille 

secteur = 0 

Transfert de données 
entre  FDD et le 
système 

Pr Hs Etat O--------" Information d'état 

ROME Etat 1---------- après exécution de 

R Etat 2----——-— l'instruction 

RO -iess Numéro de piste----------- Information ID secteur 

Ro" 2: Adresse de tête----------- après exécution de 

R  ----- Numéro de secteur--------- l'instruction 

R'. ="##e Taille du secteur--------- 


Bit Multitrack: lorsqu'il est mis, la fonction est 
poursuivie sur la seconde face de la disquette pour les 
fonctions multi-secteur; disponible uniquement sur les 
lecteurs à double tête, dans l'AMSDOS toujours 0. 


Bit Mode MFM: lorsqu'il est mis, le FDC travaille en double 
densité, dans 1'AMSDOS toujours 1. 


Bit SKip: lorsqu'il est mis, les secteurs effacés (deleted 
DAM) sont sautés, Inutilisable sous AMSDOS et CP/M. Toujours 
0. 
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HD Bit HeaD select: avec les lecteurs à double tête, la 
sélection de la face est faite à travers ce bit. Dans 
1'AMSDOS, toujours O0, 


US 0,1 Unit Select: les lecteurs sont sélectionnés à travers ces 
bits. Sous AMSDOS, O pour lecteur À, 1 pour lecteur B. 


R Read = lire 


W Write = écrire 


Les noms et abréviations donnés ici valent également pour toutes les 
présentations d'instruction suivantes. 


Dans la phase résultat, 7 octets sont fournis par le FDC au processeur, 
Le processeur doit retirer, c'est-à-dire lire ces octets le plus vite 
possible, Le FDC n'accepte aucune nouvelle instruction avant que Île 
dernier octet de la phase résultat n'ait été lu. 


Les trois premiers octets fournis sont les états des registre d'état 0 à 
2, Avec ces trois registres, le programmeur dispose de toutes les données 
nécessaires sur le succès ou l'échec de l'instruction. 

Ensuite sont fournis le numéro de piste actuel, l'adresse de tête 
(importante pour les lecteurs à double tête), le numéro de secteur et la 
taille du secteur. Ce n'est qu'après cela qu'une nouvelle instruction 
peut être exécutée. 


ECRIRE DONNEES 

Comme pour la lecture, lors de l'écriture de secteurs, 9 octets sont 
nécessaires, Après que tous les octets aient été transmis au FDC, celui- 
ci commence (après écoulement du Head Load Time) la recherche du secteur 
voulu, Il lit à cet effet les IDs de secteur Jusqu'à ce qu'il ait 
identifié le secteur voulu ou jusqu'à ce que l'impulsion d'index ne 
survienne pour la deuxième fois depuis le début de la recherche. Dans ce 
dernier cas, l'instruction est interrompue et la phase résultat commence 
immédiatement. 

Si cependant le secteur voulu est rencontré, le FDC demande maintenant au 
processeur les données à écrire (pas en exploitation DMA), Après que 
toutes les données aient été écrites, la phase résultat commence. Elle ne 
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se distingue pas de celle de l'instruction Lire données. 


INSTRUCTION 


EXECUTION 


RESULTAT 


MT MF O0 O0 0 1 O0 1 Codes d'instruction 
X OO X  X XX HD US1 USO 


aie Numéro de piste----------- Information ID secteur 
DE Adresse de tête----------- avant exécution de 
ÈS Adresse de secteur-------- ]'’instruction 


--Dernier No secteur sur piste- 
---Vide entre ID et données---- 
Longueur secteur si taille 


secteur = 0 
Transfert de données 
entre  FDD et le 
système 
———- Etat O--------------- Information d'état 
En Etat 1--------------- après exécution de 
Desseranes Etat 2--------------- ]'instruction 
FRS Numéro de piste----------- Information ID secteur 
Free Adresse de tête----------- après exécution de 
PTS 5S Numéro de secteur--------- ]'instruction 


LIRE DONNEES EFFACEES 

Le nom de cette instruction est curieux, Il ne faut pas comprendre ici 
par données supprimées les données d'un fichier supprimé, Quelle que soit 
l'intelligence du FDC, celui-ci n'a aucune idée de ce que sont les 
fichiers et les catalogues, Le terme ‘effacées’ se rapporte bien plutôt à 
la possibilité de marquer des secteurs comme effacés en entrant une Data 
Adress Mark. De tels secteurs sont alors ignorés en lecture et écriture 
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normales, La lecture de données effacées s'effectue pour le reste comme 
la lecture de données normales. 


INSTRUCTION 


EXECUTION 


RESULTAT 


ELLE ZE—ZE 


MT MF SK O0 1} 1 O0 O Codes d'instruction 
XX OX XX HD US1 USO 


ses Numéro de piste----------- Information ID secteur 
ne Adresse de tête----------- avant exécution de 
RE Adresse de secteur-------- l'instruction 


--Dernier No secteur sur piste- 
---Vide entre ID et données---- 
Longueur secteur si taille 


secteur = 0 
Transfert de données 
entre FDD et le 
système 
rene Etat O--------------- Information d'état 
FÉSRsseee Etat 1--------------- après exécution de 
AR SNRENT Etat 2--------------- instruction 
rs Numéro de piste----------- Information ID secteur 
==e=s Adresse de tête----------- après exécution de 
Fès Numéro de secteur--------- ]’{instruction 


ECRIRE DONNEES EFFACEES 

Cette instruction ne diffère pas fondamentalement de l'écriture normale 
La seule exception est le traitement spécial de la Data 
Ici en effet, une Data Adress Mark effacée est entrée. 


de données. 
Adress Mark, 
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INSTRUCTION W MT MF O © 1 © O 1 Codes d'instruction 
W X OX  X XX HD US1 USO 


W ----- Numéro de piste----------- Information ID secteur 
Woo ----- Adresse de tête----------- avant exécution de 
Woo ----- Adresse de secteur-------- l'instruction 
Woo ----- Taille du secteur--------- 
W --Dernier No secteur sur piste- 
W ---Vide entre ID et données---- 
W Longueur secteur si taille 
secteur = 0 
EXECUTION Transfert de données 
entre  FDD et le 
système 
RESULTAT RE “=== Etat O--------------- Information d'état 
R ---------- Etat 1-------------- après exécution de 
R  ---------- Etat 2--------------- l'instruction 
R ----- Numéro de piste----------- Information ID secteur 
R  ----- Adresse de tête----------- après exécution de 
R ----- Numéro de secteur--------- l'instruction 
R ----- Taille du secteur--------- 


LECTURE D'UNE PISTE 

Cette instruction est comparable à la lecture d’un secteur, Toutefois 
avec cette instruction, tous les octets de données de la piste sont lus. 
Cette instruction se termine soit si le secteur indiqué comme dernier 
secteur a été lu, soit si un tel secteur n'a pas été rencontré, si 
l'orifice d'index produit une seconde impulsion après le début de 
l'instruction. 
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INSTRUCTION 


EXECUTION 


RESULTAT 


ELLE ZLEZ= 


O MF SK O0 O0 O0 1 O0 Codes d'instruction 
XX XX  X HD US1 USO 


Cour Numéro de piste----------- Information ID secteur 
none Adresse de tête----------- avant exécution de 
sn Adresse de secteur-------- l'instruction 


--Dernier No secteur sur piste- 
---Vide entre ID et données---- 
Longueur secteur si taille 


secteur = 0 
Transfert de données 
entre FDD et le 
système. Le FDC lit 
tout ce qui se trouve 
sur la piste entre 
l'orifice d'index et 
EOT 

FRE SSSS Etat O--------------- Information d'état 

Free Etat 1--------------- après exécution de 

FFE ee Etat 2--------------- ]'instruction 

es Numéro de piste----------- Information ID secteur 

Fee Adresse de tête----------- après exécution de 

FTceS Numéro de secteur--------- 1’instruction 
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FORMATAGE D'UNE PISTE 

Le formatage d'une piste est très simple avec le 765, Une chaîne de 6 
octets est à cet effet transmise au FDC dans la phase instruction. 
Lorsque, après la transmission complète des 6 octets, le FDC reconnaît à 
l'impulsion d'index le début physique de la piste, il commence 
automatiquement à formater la piste avec tous les Adress Marks, Gaps et 
IDs nécessaires. 

L'octet numéro 4 de la chaîne d'instruction indique combien de secteurs 
doivent être disposés sur la piste. Pour chaque secteur, le FDC demande 
quatre autres octets, Un de ces octets est le numéro de secteur qui est 
inscrit dans l’ID secteur. 11 est ainsi possible de formater les secteurs 
dans des ordres différents. Cela permet, par un choix Judicieux de 
l'ordre, d'accélérer nettement les accès ultérieurs en lecture. 


INSTRUCTION W O MF O0 0 1 1 0 1 Codes d'instruction 
W X OX XX X HD US1 USO 


Woo ----- Taille du secteur--------- Octets par secteur 

W ----- Secteurs par piste-------- Secteurs par piste 

W ---Vide entre ID et données---- Vide #3 

W --Modèle données pour secteur-- Octet de remplissage 
EXECUTION Le FDC formate une 

piste entière. 

RESULTAT RL :“AssSessss- Etat O--------------- Information d'état 

R ---------- Etat 1--------------- après exécution de 

R  ---------- Etat 2--------------- l'instruction 

R: “eE Numéro de piste----------- Dans ce cas, 

R. === Adresse de tête----------- l'information ID n’a 

Rr TES Numéro de secteur--------- pas de signification 

R ----- Taille du secteur--------- 
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LIRE ID 

Cette instruction permet, après avoir fourni deux octets dans la phase 
instruction, de lire sur la disquette la prochaine ID possible. Chaque 
secteur a reçu sa propre ID lors du formatage. Cette ID contient les 
valeurs de numéro de secteur, de piste, de face de disquette et de taille 
de <secteurf.a iCEE e 


résultat finale en même temps que les états des registres d'état STO à 
ST2, 


INSTRUCTION W 0 MF 0 O0 1 0 1 0 Codes d'instruction 
W XX OX XX HD US1 USO 


EXECUTION Sauvegarder la 
première information 
ID correcte dans les 
registres de données. 


RESULTAT R  ---------- Etat 0--------------- Information d'état 
R  ---------- Etat 1--------------- après exécution de 
R nn Etat 2 l'instruction 
R ----- Numéro de piste----------- Dans ce cas, 
R ----- Adresse de tête----------- l'information ID n'a 
R ----- Numéro de secteur--------- pas de signification 
R ----- Taille du secteur--------- 
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LES INSTRUCTIONS SCAN, TEST D'UN SECTEUR 

Ces instructions reviennent par leurs effets à un verify, c'est-à-dire à 
une vérification de l'identité entre les données écrites et les données à 
écrire. Les conditions de test possibles sont ‘égal’, ‘supérieur ou égal” 
et ‘inférieur ou égal’. Après que 9 octets aient été transmis dans la 
phase instruction, des données sont lues par le FDC sur le secteur 
sélectionné. En même temps, le FDC demande des données au processeur. 
Chaque octet de la disquette est comparé à un octet venant du processeur, 
suivant les conditions de test indiquées. Cette instruction se termine 
soit lorsque la condition de test est remplie dans le secteur indiqué, 
soit lorsque le dernier secteur de la piste a été testé ou lorsqu'une 
impulsion TC a été placée sur le pin 16, 


INSTRUCTION NW MT MF SK 1 O0 O0 O0 1 Codes d'instruction 
W X OX OX XX HD US1 USO 


W ----- Numéro de piste----------- Information ID secteur 

Woo ----- Adresse de tête----------- avant exécution de 

Woo ----- Adresse de secteur-------- l'instruction 

W ----- Taille du secteur--------- 

W --Dernier No secteur sur piste- 

W ---Vide entre ID et données---- 

W Longueur secteur si taille 

secteur = 0 
EXECUTION Comparaison de données 
entre FDD et système 

RESULTAT Ru ESSssreS Etat O--------------- Information d'état 

R  ---------- Etat 1------------- après exécution de 

R --------- Etat 2--------------- l'instruction 

R  ----- Numéro de piste----------- Information ID secteur 

R ----- Adresse de tête----------- après exécution de 

R ----- Numéro de secteur--------- l'instruction 

R ----- Taille du secteur--------- 
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INSTRUCTION 


EXECUTION 


RESULTAT 


MT MF SK 1 1 0 0 1 Codes d'instruction 
X OX OX XX HD US1 USO 


= Numéro de piste----------- Information ID secteur 
Ent Adresse de tête----------- avant exécution de 
EE Adresse de secteur-------- l'instruction 

——— Taille du secteur--------- 


--Dernier No secteur sur piste- 

---Vide entre ID et données---- 

Longueur secteur si taille 

secteur = 0 
Comparaison de données 
entre  FDD et le 


système 
mm Etat O--------------- Information d'état 
= Etat 1--------------- après exécution de 
ses Etat 2--------------- ]'instruction 
Sos Numéro de piste----------- Information ID secteur 
sers Adresse de tête----------- après exécution de 
En ie Numéro de secteur--------- ]’instruction 
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INSTRUCTION 


EXECUTION 


RESULTAT 


EEE TZ 


MT ME SK 1 1 1 O 1] Codes d'instruction 
X OO X  X XX HD US1 USO 


=== Numéro de piste----------- Information ID secteur 
pres Adresse de tête----------- avant exécution de 
SSzes Adresse de secteur-------- ]’instruction 

RESET Taille du secteur--------- 


--Dernier No secteur sur piste- 
---Vide entre ID et données---- 
Longueur secteur si taille 


secteur = 0 
Comparaison de données 
entre FDD et le 
système 
= Etat O--------------- Information d'état 
= Etat 1--------------- après exécution de 
rer Etat 2--------------- ]'instruction 
= Numéro de piste----------- Information ID secteur 
ee Adresse de tête----------- après exécution de 
reves Numéro de secteur--------- ]'jinstruction 
Fer Taille du secteur--------- 
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RECALIBRER, CHERCHER PISTE ZERO 

Avec cette instruction, la tête du lecteur sélectionné est déplacée vers 
la piste zéro, soit jusqu'à ce que l’impulsion TrackO du lecteur signale 
au FDC que cette piste a été atteinte, soit Jusqu'à ce que le FDC ait 
fourni 77 impulsions de pas. Les registres d'état permettent de 
déterminer comment cette instruction s'est achevée. 


INSTRUCTION W 0 60 0 0 0 1 1 1 Codes d'instruction 
W X OX XX  X HD US1 USO 


EXECUTION Replacer tête sur 
piste 0 


L'INSTRUCTION SEEK, RECHERCHE D'UNE PISTE 

Les lecteurs de disquette déplacent la tête de lecture/écriture avec ce 
qu’on appelle des moteurs de pas, Ces moteurs ne sont pas sans cesse en 
mouvement mais sont déplacés par des impulsions selon des changements 
d'angle bien définis par rapport à l'axe, Ces impulsions sont en règle 
générale produites dans les lecteurs de disquette eux-mêmes par des 
branchements digitaux parfois très onéreux, Un lecteur de disquette 
dispose de deux connexions vers l'extérieur. Sur une connexion sont 
placées des impulsions qui commandent le moteur de pas de façon à ce que 
la tête soit déplacée exactement d’une piste chaque fois qu’une impulsion 
se produit, La deuxième entrée sur les lecteurs détermine la direction de 
ce déplacement, 

Ce déplacement de la tête est commandé par l'instruction Seek. Le FDC 
dispose en tout de quatre registres internes dans lesquels il stocke la 
position de tête actuelle des quatre lecteurs possibles. Ces registres 
sont sur zéro, ils sont donc annulés après l'instruction Recalibrate. Si 
une instruction Seek est envoyée à un lecteur déterminé, le contenu du 
registre de position correspondant est comparé à la valeur demandée. Si 
les deux valeurs sont identiques, aucune autre action n'est nécessaire, 


- 140 - 


Si cependant une différence entre ces deux valeurs est constatée, la 
polarité du signal DIR sur le pin 38 sera modifiée en fonction de la 
direction nécessaire et des impulsions de pas seront produites sur le pin 
37, Le délai entre les impulsions de pas est programmable dans des 
limites assez larges avec l'instruction ‘Indiquer lecteurs’. 


Pour cette instruction et pour l'instruction Recalibrate, il n'y a pas de 
phase résultat. Il est recommandé que le programmeur entre toujours 
l'instruction ‘lire état d'interruption’ après une instruction Seek afin 
de terminer correctement l'instruction. Cette instruction fournit l'état 
du STO, aussi appelé état d'interruption, dans la phase résultat. Sans 
cette instruction, le FDC n'accepte plus d'instructions de 
lecture/écriture. 


INSTRUCTION W 0 0 0 0 0 1 1 1 Codes d'instruction 
W XO OX OX XX HD US1 USO 


EXECUTION La tête est placée sur 
le piste recherchée de 
la disquette 


SENSE INTERRUPT STATUS, INTERROGER REGISTRE D'ETAT O0 
Des interruptions sont produites par le FDC en exploitation NON DMA lors 
des évènements suivants: 


pendant la phase exécution, 

au début de la phase résultat, 

à la fin d'un Seek ou d'un Recalibrate, 

lors de la modification du signal Ready d'un lecteur 
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Si les deux premières causes d'interruption peuvent être aisément 
reconnues par le processeur, pour les deux autres causes d'interruption 
suivantes l'instruction ‘Sense Interrupt Status’ doit par contre être 
exécutée pour déterminer la cause de l'interruption, Les bits de la 
valeur du STO permettent de déterminer aisément la source d'interruption. 


INSTRUCTION NW 0 O0 O0 0 O0 O0 0 O0 Codes d'instruction 


RESULTAT R  ----------- Etat 0------------- Information d'état à 
la fin de l'opération 
de recherche à travers 
FDC 

R Numéro de piste après 
instruction de recherche 


SENSE DRIVE STATUS, INTERROGER ETAT LECTEUR 

Cette instruction constitue la seule possibilité de déterminer le contenu 
du registre d'état ST3. Ce registre indique l'état du lecteur 
sélectionné, Il peut être lu à tout moment avec cette instruction. 
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PHASE R/W  D7 D6 DS D4 D3 D2 Di DO 


INSTRUCTION W 0 0 0 0 O0 1 O O Codes d’instruction 
W X OX XX  X HD US1 USO 


RESULTAT R  ----------- Etat 3------------- Information d'état à 
travers FDD 


L'INSTRUCTION SPECIFY, INDIQUER DONNEES LECTEUR 

Bien que cette instruction soit placée à la fin de notre brève 
présentation des instructions du FDC, c'est la première instruction qu'il 
faut utiliser après un Reset ou après la mise sous tension du FDC, À 
l'aide de cette instruction, les lecteurs les plus divers peuvent être 
adaptés au FDC. Tous les délais nécessaires sont indiqués au FDC avec 
cette instruction sur 3 octets. Outre les délais d'attente, un bit décide 
st le FDC doit travailler en mode DMA ou en mode d'interruption. 


Mais examinons les données du lecteur de disquette. Il y a d’abord ce 
qu'on appelle le Step Rate Time. Le FDC attend automatiquement 
l'écoulement de ce délai entre les différentes impulsions de pas, Comme 
les différents lecteurs fabriqués attendent des délais d'attente entre 
deux impulsions complètement différents, ce délai peut être adapté 
précisément aux valeurs nécessaires, 

Le deuxième délai qui peut être fixé est le délai d'attente dont le FDC 
attend automatiquement l'écoulement après activation du signal Head Load. 
Ce délai d'attente appelé Head Load Time n'a de sens que pour les 
lecteurs 8”, sur les plus petits lecteurs, la tête est presque toujours 
chargée avec le signal Motor On. 

Le troisième délai pouvant être fixé est le Head Unload Time. Ce délai 
programmable est celui qui doit s'écouler, après un accès à la disquette, 
avant que le signal Head Load du FDC ne redevienne inactif. Ce délai 
également n'a de sens que sur les lecteurs de disquette qui effectuent 
réellement la commande de la tête à travers la connexion du FDC que nous 
avons indiquée. 
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INSTRUCTION W 


W 


--Step rate--> <élever tête--- 


---Charger tête --> pas DMA--- 


Code d'instruction 


Information d'état à 
la fin de l'opération 
de recherche à travers 
FDC 
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117 1 1 1 0 1 500 ms 
17 101 1 1 1 0 504 ms 
17 101 1 1 0 1 508 ms 


1 = Mode DMA 
0 = Mode Non DMA 
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3,1,2,3 LES REGISTRES D'ETAT DU FDC 765 


Comme nous l'avons déjà indiqué, le 765 dispose de 5 registres d'état 
internes. Le registre d'état principal peut être lu à tout moment. Le 
contenu des registres d'état O0 à 2 est fourni à la fin des instructions 
de lecture et d'écriture. Il n'est pas possible d'accéder de façon 
sélective aux registres 1 et 2. Seul le contenu des registres 0 et 3 peut 
etre lu de façon sélective grâce aux instructions particulières 
correspondantes. 


Les noms et abréviations spéciaux utilisés dans la description suivante 
sont tirés de la fiche technique NEC du 765. Malheureusement, même chez 
NEC, ces termes n'ont pas toujours été employés de façon systématique. 
C'est ainsi que le compte rendu d'application du 765 utilise parfois 
d'autres noms et abréviations que la fiche technique. 


Avant que nous n'examinions maintenant le registre d'état en détail, nous 
allons encore expliquer brièvement une des notions utilisées. Le terme 
Cylinder ne signifie rien d'autre que track où piste. Nous ne nous 
expliquons pas pour quelle raison les deux termes track et cylinder 
apparaissent parallèlement dans les fiches techniques. Nous avons essayé 
d'éviter autant que possible d'utiliser le terme cylinder. A certains 
endroits toutefois les abréviations utilisées n'auraient plus alors de 
sens. Dans ce cas, nous avons conservé la notion de cylinder., 


LE REGISTRE D'ETAT PRINCIPAL 

Dans ce registre sont représentées les principales données sur l'état 
actuel du FDC, C'est aussi avec ce registre qu'est réglé le hand shaking 
entre processeur et FDC. Les huit bits de ce registre indiquent les 
données et états suivants: 


Bit 7 ROM : ReQuest for Master 
Si ce bit est mis, le FDC est prêt à lire ou à envoyer un 
nouvel octet à travers le registre de données. Si par 
contre le RQM est à zéro, aucun transfert de données ne 
peut se faire pour le moment, 


Bit 6 DIO : Data Input/Output 
Si ROM indique qu'un transfert de données est possible, 
DIO signale la direction de données nécessaire. Un DIO mis 
signifie que le FDC a un octet de données pour le 
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Bit 5 EXM 


Bit 4 CB 


Bits 3-0 DB 


processeur, un DIO annulé indique que le FDC attend un 
octet du processeur. 


: EXecution Mode 


Ce bit n'est utilisé qu’en mode Non DMA. En exploitation 
DMA, ce bit est systématiquement annulé, En mode Non DMA, 
le bit EXM est mis lorsque la phase exécution a commencé. 
Au début de la phase résultat, EXM est à nouveau annulé. 
Ce bit permet donc de déterminer si les valeurs fournies 
sont des informations de secteur ou s’il s’agit des octets 
de la phase résultat. 


: FDC Busy 


Le bit CB mis signale que le FDC est en train de traiter 
une instruction de lecture ou d'écriture et qu'il ne peut 
recevoir d'autres instructions, À la réception du premier 
octet d'une chaîne d'instruction, ce bit est mis et il le 
reste Jusqu'à ce qu'ait été Iu le dernier octet de la 
phase résultat, Ce bit est ensuite automatiquement remis à 
zéro. 


: FDD3-0 Busy 


Ces quatre bits sont affectés aux quatre lecteurs 
possibles. Si une instruction Seek ou Recalibrate est 
lancée sur un de ces lecteurs, le bit correspondant du 
registre d'état principal sera mis. Dès qu'un de ces bits 
est mis, aucune instruction de lecture où écriture ne peut 
être envoyée au FDC. D'autres instructions Seek ou 
Recalibrate restent cependant possibles pour les autres 
lecteurs de disquette, Le bit correspondant est alors mis 
pour chaque instruction supplémentaire. 

Ces bits ne sont pas annulés automatiquement à la fin de 
l'instruction, Pour remettre à nouveau ces bits sur 0, 
l'instruction ‘lire état d'interruption’ doit être envoyée 
au FDC. Cette instruction efface les bits si l'instruction 
correspondante s'était déjà terminée. 


LE REGISTRE D'ETAT 0 


Le registre d'état O0 est également appelé registre d'état d'interruption 
car il indique en exploitation Non DMA la cause d’une interruption. 
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Bits 7,6 IC 


Bit 5 SE 


: Interrupt Code 


Dans ces deux bits, le FDC fournit des indications sur le 
déroulement d’une instruction, Les deux bits donnent 
quatre possibilités: 


0 O Instruction terminée avec succès, C'est évidemment ce 
message que vous devez toujours souhaiter obtenir car 
il indique qu'un accès en lecture par exemple a 
réussi. Mais attention! 

0 1 Instruction interrompue. Dans ce cas, l'instruction a 
bien été lancée mais elle ne s'est pas terminée avec 
succès, Ce message peut survenir par exemple pour des 
erreurs de lecture sur la disquette mais il est 
également envoyé sur le CPC après chaque lecture ou 
écriture d’un secteur, La raison en est le fait de 
renoncer au signal TC et la programmation ainsi 
rendue nécessaire du dernier secteur de piste de 
façon identique au secteur à lire. Lorsque survient 
cette combinaison, il n’y a donc pas absolument à 
considérer qu'une véritable erreur s'est produite. 

1 0 Instruction non valable, L'instruction que vous avez 

indiquée n'a pu être lancée parce qu'il s'agit d'une 
instruction illégale. 
Vous obtenez également ce message lorsque vous avez 
envoyé l'instruction ‘Sense Interrupt Status’ mais 
qu'il n'y à encore pour le moment aucune 
interruption. 

1 1 Instruction interrompue, La cause de ce message est 
une modification du signal Ready du lecteur 
sélectionné, pendant une instruction. L'instruction a 
alors bien été commencée mais elle n'a pu être 
entièrement terminée, Vous obtenez par exemple ce 
message lorsque vous retirez la disquette du lecteur 
pendant un accès en lecture. 


: Seek End 


Dès qu'une instruction a été terminée, le FDC met ce bit 
sur 1, 
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Bit 4 EC : Equipment Check 

Ce bit d'état indique d’une part si ile lecteur de 
disquette annonce une erreur. En cas d'erreur, le bit EC 
est mis. La seconde cause pour un bit EC mis peut être 
l'absence du signal TRKO après un Recalibrate, Avec 
Recalibrate en effet, la tête est déplacée vers la piste 
0, soit jusqu'à ce que le sensor de piste O0 envoie un 
message au FDC, soit Jusqu'à ce que 77 impulsions de pas 
aient été envoyées au lecteur de disquette, Ce cas peut se 
produire sur les lecteurs à 80 pistes lorsque la tête de 
lecture/écriture se trouve sur les pistes intérieures 78 à 
80. Dans ce cas on peut simplement répéter l'instruction 
’Recalibrate'. 


Bit 3 NR : Non Ready 
Lorsque le lecteur de disquette sélectionné communique 
lors d'une instruction de lecture ou d'écriture qu'il 
n'est pas prêt, ce flag est mis. La tentative d'accès à 
une deuxième tête qui n'existe pas d'un lecteur simple 
face a également pour effet de mettre ce bit. 


Bit 2 HD : HeaD adress 
Ce bit informe sur la tête sélectionnée au moment de 
l'évènement d'interruption. 


Bits 1,0 US : Unit Select 
Ces deux bits indiquent quel lecteur est actif au moment 
de l'interruption, 


LE REGISTRE D'ETAT 1 
Ce registre informe dans la phase résultat sur le déroulement de la phase 
exécution, 


Bit 7 EN : ENd of track 
Ce flag est mis par le FDC lorsqu'il tente un accès à un 
secteur après la fin programmée de la piste. 


Bit 6 INUTILISE, TOUJOURS ZERO 


Bit 5 DE : Data Error 
Lors de l'écriture de données, le FDC produit 
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Bit 4 OR 


automatiquement une valeur de contrôle (check sum), 
d'après le principe du ‘Cyclic Redundance Check’, valeur 
qui est sauvegardée sur la disquette avec les données, Ces 
valeurs de contrôle sont également formées lors de la 
lecture des données, Elles sont alors comparées aux 
valeurs sauvegardées, Si le FDC constate une différence 
entre les deux valeurs de contrôle dans les champs de 
données ou dans les champs ID, le flag DE est mis. 


: Over Run 


Le transfert de données entre processeur et FDC en lecture 
ou en écriture doit se dérouler en un temps maximum 
déterminé. C'est ainsi que les données sont fournies au 
processeur en lecture avec des intervales de seulement 26 
ms. Si le processeur, pour n'importe quelles raisons, ne 
peut tenir cette vitesse, il peut arriver qu'un nouvel 
octet soit prêt à être lu avant que le dernier octet n'ait 
pu être lu par le processeur. Dans un tel cas on parie d'’ 
Over Run et le bit OR est mis. 


Bit 3 INUTILISE, TOUJOURS ZERO 


Bit 2 ND 


Bit 1 NW 


: No Data 


Ce flag peut être mis pour plusieurs raisons. Ce flag est 
mis lors de l'exécution d’une instruction d'écriture, de 
lecture ou de scanning lorsque le controller ne trouve pas 
le secteur indiqué. 

Lors de l'exécution de l'instruction ‘lire ID secteur’, le 
flag ND est mis si le controller n'arrive pas à lire sans 
erreur un champ ID. Dans ce cas également, la cause de 
l'erreur est une erreur dans la valeur de contrôle. 

La troisième cause possible apparaît en liaison avec 
l'instruction ‘lire piste’ lorsque le secteur de départ 
indiqué n'a pu être trouvé sur la piste. 


: Non Writable 


Si on constate, lors de l'exécution des instructions 
'écrire secteur’, ‘écrire secteur effacé’ ou ‘formater 
piste’ que la disquette est protégée contre l'écriture, ce 
flag est mis. 
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Bit O MA 


: Missing Adress mark 


Ce flag est toujours mis lorsque le FDC n'a pu trouver, 
lors de la lecture ou de l'écriture de données, l'ID 
secteur au cours d'une rotation complète de la disquette. 
L'absence de la Data Adress Mark ou de la Data Adress Mark 
effacée est également signalée par la mise de ce bit. En 
outre et simultanément, le flag MD du registre d'état 2 
est mis. 


LE REGISTRE D'ETAT 2 
De même que ST1, ST2 fournit des indications sur le succès ou l'échec 
d'une instruction, 


Bit 7 INUTILISE, TOUJOURS ZERO 


Bit 6 CM 


Bit 5 DD 


Bit 4 WC 


Bit 3 SH 


: Control Mark 


Si le FDC trouve lors de la lecture de données ou lors 
d'une instruction Scan un secteur avec une Data Adress 
Mark effacée, il met ce bit. 


: Data error in Data field 


Comme pour le flag DE (Bit 5 de STI), ce bit est mis lors 
d'erreurs CRC, Ce bit n'est toutefois mis que pour des 
erreurs dans les champs de données. 


: Wrong Cylinder (Track) 


Lors du formatage d'une piste doivent être indiqués pour 
chaque secteur le numéro de secteur, le numéro de piste, 
le numéro de tête et la taille du secteur, Ces données 
sont sauvegardées dans l'ID secteur et sont lues lors des 
instructions de lecture, Si le FDC constate alors une 
différence entre le numéro de piste Iu et le numéro de 
piste indiqué, il met le flag WC. 


: Scan equal Hit 


Si une instruction Scan est lancée qui compare les 
informations de secteur avec les données fournies par le 
processeur, ce bit sera mis si les données sont 
effectivement identiques. 


SITE 


Bit 2 SN : Scan Not satisfied 
Si le FDC ne trouve lors d’une quelconque instruction Scan 


aucun secteur qui corresponde de la façon demandée aux 
données indiquées, le bit SN est mis. 


Bit 1 BC : Bad Cylinder 
Ce flag a une signification semblable à celle du flag WC. 
Il est mis lorsque le numéro de piste lu dans l'ID ne 
coïncide pas avec celui indiqué dans l'instruction et que 
le numéro de piste lu dans l'ID est &FF. 


Bit O MD : Missing adress mark in Data field 
Si le FDC ne peut trouver la Data Adress Mark ou la Data 
Adress Mark effacée lors de la lecture de données, ce bit 
est mis. 


LE REGISTRE D'ETAT 3, L'ETAT DU LECTEUR DE DISQUETTE 

Le contenu de ce registre ne peut être transmis au processeur qu'avec 
l'instruction ‘déterminer état lecteur’. Les bits de ce registre 
reflètent l'état du lecteur sélectionné dans l'instruction. 


Bit 7 FT : FaulT 
Ce flag reflète l'état du signal Fault qui existe sur 
certains lecteurs de disquette, Lorsque le lecteur dispose 
d'une telle connexion et que ce bit est mis, c'est qu’une 
erreur s'est produite dans le lecteur de disquette. 


Bit 6 WP : Write Protected 
Ce flag indique si la disquette placée dans le lecteur est 
protégée contre l'écriture. Un flag WP mis signifie qu'il 
n'est pas possible d'écrire sur la disquette. 


Bit 5 RY : ReadŸ 
Ce bit est utilisé pour déterminer l'état du canal Ready 
du lecteur de disquette. Un flag RY mis signale l'état 
‘Drive Ready'. 


Bit 4 TO : Track 0 
Si la tête de lecture/écriture du lecteur sélectionné se 
trouve sur la piste O au moment de l'instruction, le flag 
TO est mis. 
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Bit 3 TS 


Bit 2 HD 


Bits 1,0 


: Two Side 


Les lecteurs à double tête placent cette connexion sur la 
masse. Sur les lecteurs à simple tête, ce signal est par 
contre normalement high. L'état du bit TS permet au 
programme de déterminer quel type de lecteur est connecté. 


: HeaD adress 


Ce bit reflète l'état du signal Head select du FDC (pin 
27). 


: Unit Select 


L'état de ces deux bits est identique aux niveaux des deux 
canaux US du FDC (pins 28 et 29). 
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3,1,2,4 L'EMPLOI DU FDC 765 SUR LE CPC 


Malheureusement les développeurs du CPC sont loin d'avoir utilisé toutes 
les possibilités du FDC. C'est ainsi que deux lecteurs seulement peuvent 
‘etre connectés au lieu des quatre possibles. L'exploitation de lecteurs à 
double tête n'est pas non plus possible car le signal HEAD SELECT, s'il 
est bien connecté, n'est cependant pas utilisé, Le sort du signal HEAD 
LOAD est encore pire puisqu'il n’est connecté nulle part. Ce défaut est 
cependant le plus facile à admettre puisqu'une exploitation de disquette 
8" est d’une part sans intérêt pour l'utilisateur ‘moyen’ du fait des 
énormes dimensions physiques de ces lecteurs et qu’elle est d'autre part 
rendue impossible par d'autre détails dans les connexions du controller. 
Malgré ces réserves, le controller a été très intelligemment construit 
pour le but recherché, l'exploitation sans problème de deux lecteurs 3”. 
Avec une économie maximum d'électronique, un controller a été réalisé qui 
présente d'excellentes caractéristiques techniques, 


Malgré l'esprit d'économie des développeurs, on n'a heureusement pas 
limité la fiabilité de l'appareil. On a ainsi adapté comme ‘auxiliaire’ 
au FDC 765 un composant qui arrache aux experts en électronique, pour le 
moins, une moue d'approbation, Nous pensons au séparateur de données 
intégré à 20 pôles SMC 9229 de l'interface du CPC 464, Sur le CPC 664, 
c'est, certainement pour des raisons de coût, le ‘petit frère’ de ce 
séparateur de données, le SMC 9216 à 8 pôles qui a été employé. Bien que 
ne disposant pas de toutes les possibilités du 9229, il est tout aussi 
fiable comme séparateur de données. Tous les signaux pour l'interface 
disquette du FDC, à l'exception du signal pour la mise en marche des 
moteurs du lecteur de disquette, sont produits par le FDC et le 
séparateur de données. 


Bien que l'exploitation DMA représente la méthode la plus simple et la 
plus élégante pour connecter le disk controller, c'est une autre voie qui 
a été choisie, certainement pour des raisons de coût. Le processeur 
synchronise le transfert de données au vu du registre d'état principal. 
Les interruptions produites par le controller ne sont pas utilisées. 
Effectivement, la connexion d'interruption du FDC n'est pas branchée. 


Le FDC est situé sur les adresses de port &FB/E et &FB/F. À la première 
adresse se trouve le registre d'état principal, la deuxième adresse 
appartient au registre de données. 

Une troisième adresse est occupée par le Controller Board. Sur le port 
8FA7ZE se trouve un flip-flop à travers lequel les moteurs du lecteur de 
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disquette sont commandés, Si on écrit un 1 sur ce port (OUT &FA/E,1 en 
Basic), les moteurs de tous les lecteurs connectés sont mis en marche, 
par contre si on écrit un O0, tous les moteurs sont à nouveau arrêtés. 


L'intéressant est que la connexion Terminal Count soit reliée au pin 
Reset, Les deux connexions sont branchées ensemble et reçoivent ensemble 
une impulsion positive en cas de Reset, La production d'une impulsion TC 
séparée n'est pas prévue dans le controller. Cela pose bien sûr la 
question de savoir comment est terminé un accès en lecture à la 
disquette, (Remarque: les développements suivants ne valent pas seulement 
pour la lecture des données mais également pour les instructions 
d'écriture et les instructions Scan.) 

Habituellement, une impulsion TC est envoyée après lecture du secteur 
voulu, En l'absence de cette impulsion, un [/0 multi-secteur est exécuté, 
ce qui veut dire que le controller lit des données jusqu’à ce qu'il 
rencontre le dernier secteur de la piste. Comme cependant le dernier 
secteur de la piste doit être programmé dans les neuf octets de 
l'instruction de lecture, les développeurs ont eu recours à une astuce. 
Ils fixent simplement le numéro du dernier secteur de façon à ce qu'il 
soit identique au numéro du secteur à lire. Après que toutes les données 
du secteur aient été lues, le FDC met automatiquement fin à la procédure 
de lecture et commence la phase résultat, 

Cette façon de procéder entraîne toutefois un point qui doit être pris en 
compte lors de la programmation des routines du controller. Si un secteur 
est lu avec ce procédé, le registre d'état O indique en retour une erreur 
au Système d'exploitation. Il s’agit de l'erreur ‘Instruction lancée mais 
non terminée correctement’, le bit 6 du STO est mis. La cause exacte de 
l'erreur se trouve dans le STI; ici, le bit 7 est mis. Cela signifie en 
clair: fin de la piste atteinte, tentative d'accès à un secteur après la 
fin de la piste, Cette erreur doit être ignorée par le système 
d'exploitation sans toutefois que cela entraîne que d'autres erreurs 
éventuelles soient ainsi ignorées, 

Le branchement réalisé rend impossible l'exploitation de lecteurs de 
disquette 8”, Mais les routines de 1'AMSDOS ne sont pas non plus conçues 
pour l'exploitation de lecteurs de disquette 8”. D'ailleurs il n’est pas 
ou très difficilement possible sous AMSDOS de connecter des lecteurs 
ayant des caractéristiques techniques différentes, comme par exemple 80 
pistes ou double tête de lecture. La connexion de tels lecteurs est en 
principe possible. Le signal correspondant pour la sélection de la tête 
de lecture pour les lecteurs à double tête est même branché sur 
l'interface disquette. Il faut cependant alors réécrire des sections 
essentielles du DOS car 1'AMSDOS ne supporte pas le signal HS. 
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3,2 LA STRUCTURE DE LA DISQUETTE 


3.2,1 LES TROIS FORMATS DE DISQUETTE 


Comme vous le savez, le CPC distingue trois différents formats de 
disquette, le format CPC standard, le format de données et le format IBM, 
Vous pouvez sélectionner le format à utiliser lors du formatage de la 
disquette en indiquant S ou V (pour Système et Vendor), D (pour Données) 
ou I (pour IBM). Nous allons maintenant examiner plus précisément comment 
les formats sont structurés et en quoi ils se distinguent les uns des 
autres, 


Lors de chaque accès à une disquette, AMSDOS détermine automatiquement le 
format. Cela ne se produit cependant que lorsqu'aucun fichier n'est 
ouvert sur la disquette. Cette limite peut cependant parfaitement être 
acceptée puisque, comme vous le savez, les disquettes avec des fichiers 
ouverts ne doivent pas être retirées du lecteur de disquette. Nous avons 
déjà évoqué le critère de distinction qui est constitué par les numéros 
de secteurs différents correspondant à chaque format. 

En fixant certaines cases mémoire de la Ram, on dispose d'une autre 
possibilité pour interdire ce log-in automatique, autre terme pour 
désigner la détermination des paramètres disquette. Vous trouverez ces 
cases mémoire dans la liste de la Ram disquette, dans un chapitre 
ultérieur. 


Un certain nombre de choses sont communes aux trois formats. Il y a 
d'abord le nombre des pistes sur la disquette, Ce nombre est toujours de 
40, les différentes pistes étant numérotées de O0 à 39. La taille d'un 
secteur est également identique pour les trois formats: 512 octets par 
secteur, En outre, pour tous les formats, 64 fichiers au maximum peuvent 
‘etre placés sur les disquettes, 

Mais c'est à cela que se résument les points communs, 


3.2.1,1 LE FORMAT CPC STANDARD OÙ FORMAT SYSTEME 


Ce format est certainement le format de disquette habituel et le format 
le plus utilisé sur le CPC, Dans ce format, une piste contient 9 secteurs 
avec les numéros de secteur 841 à 849. D'autre part les deux premières 
pistes de la disquette sont réservées pour CP/M,. Si donc vous voulez 
travailler sous CP/M, c'est ce format que vous devriez utiliser car ce 
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n'est qu'avec ce format qu'un lancement ou un Warm Boot (Control C) de 
CP/M est possible. 


Les pistes réservées sont affectées comme suit: 


Piste O0, Secteur 841: Secteur Boot, 

Piste 0, Secteur 842: Secteur de configuraton 
Piste 0, Secteurs 843 à &47: inutilisés. 
Piste 0, Secteurs 848, 849 et 

Piste 1, Secteurs &41 à 849: CCP et BDSOS. 


Bien que nous ayons jusqu'ici parlé de trois formats, ce qui est 
fondamentalement exact, le programme ‘FORMAT.COM’ ne connaît cependant 
pas que les trois indications S, D ou I mais également une quatrième 
possibilité, le 'V', Avec cette indication, la disquette est formatée 
comme avec S mais les pistes système ne sont pas écrites, Cette option 
est essentiellement conçue pour l'exploitation commerciale des logiciels 
CP/M qui doivent être vendus, pour des raisons de Copyright, sans CP/M. 
L'utilisateur doit écrire lui-même CP/M sur les pistes système après 
avoir acquis un de ces logiciels, On peut utiliser le programme 
SYSGEN.COM à cet effet. 


3.2,1,2 LE FORMAT DE DONNEES 


Dans ce format également, 9 secteurs sont formatés sur chacune des 40 
pistes, Les numéros de secteur sont cependant &C1 à &C9, Avec ce format, 
il n'y a pas de pistes système réservées, de sorte que vous disposez avec 
ce format de 9216 octets supplémentaires sur la disquette. 


3,2,1.3 LE FORMAT IBM 


Ce format est identique au format de 1’IBM-PC sous CP/M 86. Si par pur 
hasard vous disposez à côté de votre CPC d'une telle machine comme second 
ordinateur, vous pouvez lire et écrire les disquettes de l’IBM également 
sur votre CPC, Cela suppose toutefois que les deux ordinateurs 
travaillent avec la même taille physique de disquette, Le format IBM se 
traduit par une place mémoire un peu plus réduite que pour les deux 
formats précédents car 8 secteurs seulement sont formatés sur une piste. 
Ce nombre moindre de secteurs est cependant quelque peu compensé par le 
fait qu'une seule piste, la première piste, est réservée comme piste 


- 157 - 


système. 


3,2,2 LA STRUCTURE DU CATALOGUE 


Avec les trois formats, 64 fichiers maximum peuvent être sauvegardés sur 
la disquette. Dans cette section, nous allons examiner de plus près où et 
sous quelle forme les noms de fichier sont sauvegardés sur la disquette. 


La structure fondamentale du catalogue est imposée par CP/M. Comme les 
disquettes doivent pouvoir être lues et écrites aussi bien sous CP/M que 
sous AMSDOS, 1l'AMSDOS a dû être adapté à la structure de catalogue de 
CP/M. Si donc nous parlons dans les développements suivants d'AMSDOS, 
toutes ces explications Vaudront également pour CP/M, étant donnée la 
compatibilité entre les deux systèmes d'exploitation, Nous ne vous 
rappellerons donc pas chaque fois cette compatibilité. 


La gestion automatique d'un catalogue constitue une des tâches 
essentielles de tout système d'exploitation de disquette. Seule 
l'existence d'un tel catalogue permet de trouver les données aussi 
rapidement sur la disquette. Si cependant ce catalogue ne contient que 
les noms de fichier, cela n'apporte pas encore l'accès rapide voulu. Dans 
ce cas en effet, il faudrait que vous vous occupiez vous-même de la bonne 
gestion des différents secteurs sur la disquette, Vous comprendrez la 
complexité d’une telle tâche s'il vous arrive un jour que le catalogue de 
votre disquette favorite devienne illisible et si vous devez alors sauver 
les données de la disquette ‘’manuellement'. 

Le catalogue doit donc également comprendre, outre le nom du fichier, la 
situation physique des données sur la disquette. Ce sont précisément ces 
deux données qui sont sauvegardées par AMSDOS dans l'entrée catalogue 
d'un fichier. Avant cependant que nous n'examinions de plus près comment 
est faite cette sauvegarde, il est nécessaire que nous expliquions ici 
certaines notions que nous allons souvent employer par la suite. 


Il y a d'abord la notion de SECTEUR. Un secteur est une zone qui est 
disposée pour les données sur la disquette, lors du formatage. Dans 
l'AMSDOS, les secteurs ont toujours une taille de 512 octets, d'autres 
systèmes d'exploitation utilisent par exemple des secteurs de 128, 256 ou 
même 1024 octets, 

Lorsque des données doivent être lues sur la disquette, c'est toujours un 
secteur entier qui devra être lu, Il n'est pas possible de lire 
directement sur la disquette, de façon parfaitement sélective, uniquement 
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certains octets déterminés. Le secteur est donc la zone de données qui 
peut être appelée au niveau le plus bas. 

Un ENREGISTREMENT est un bloc de données plus petit d'exactement 128 
octets. Chaque secteur (d'AMSDOS) contient par conséquent exactement 4 
enregistrements. Pourquoi cette subdivision? La raison tient à l'histoire 
de la genèse de CP/M. CP/M a été à l'origine développé avec des lecteurs 
de disquette 8”. Sur ces lecteurs un secteur avait toujours, à l’époque 
du développement, une taille de 128 octets. Ce n’est que plus tard que 
des formats furent développés avec des secteurs de taille supérieure à 
128 octets. Pour conserver la compatibilité avec le format utilisé 
précédemment, le secteur de plus grande taille fut subdivisé par le BIOS, 
par programme, en unités plus petites de 128 octets. La compatibilité 
était ainsi assurée. AMSDOS travaille également du point de vue logique 
au niveau de l'enregistrement, Cela signifie qu'AMSDOS et CP/M ne 
connaissent en fait absolument pas les secteurs, 

Une troisième notion nécessite une explication. Il s’agit de la notion de 
bloc. Cette notion remonte également à la préhistoire de CP/M. Lorsqu'on 
veut stocker sur disquette des fichiers de plusieurs dizaines de K, il 
faut enregistrer un nombre considérable de secteurs occupés par le 
fichier. Ce nombre peut cependant être considérablement réduit si l'on 
réunit plusieurs enregistrements dans des blocs et qu'on enregistre les 
numéros de bloc, La taille des blocs peut être librement définie sous 
CP/M, les valeurs usuelles sont 1K (comme sous AMSDOS) ou 2K, Pour 
maîtriser les calculs nécessaires à cet effet, tous les secteurs libres, 
c'est-à-dire tous ceux qui ne sont pas occupés par les pistes système 
sont numérotés dans l'ordre, à partir des pistes inférieures. 

Dans la pratique, sur une disquette en format S, le secteur &41 de la 
piste 2 contient les enregistrements 0 à 3 de la disquette. Sur le 
secteur 842 se trouvent les enregistrements 4 à 7, etc, Comme donc un 
bloc a sous AMSDOS une taille de 1K, il contient 8 enregistrements. Le 
bloc 0 se trouve donc sur les secteurs 841 et 842 de la piste 2, le bloc 
1 occupe les secteurs 843 et &44 et le bloc 4 occupe par exemple Île 
secteur 849 de la piste 2 ainsi que le secteur 841 de la piste 3. 

Nous reconnaissons volontiers que ces calculs sont très compliqués mais 
ils sont tout simplement indispensables sous ÆCP/M et AMSDOS, Mais 
revenons à notre catalogue, 

Vous êtes-vous déjà demandé pourquoi même le plus petit programme prend 
toujours 1K sur la disquette, même s’il ne comporte qu'un octet et qu'il 
ne remplit donc ainsi même pas un enregistrement ni un secteur? Nous 
venons justement d'en découvrir la raison, Ce sont les numéros des blocs 
occupés par un fichier qui sont enregistrés dans le catalogue, 
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Examinons donc une entrée de catalogue de plus près. Chaque entrée occupe 
32 octets, Commençons par les 16 premiers octets. 


00 46 4F 52 4D 41 54 20 20 43 4F 4D O0 00 00 15 .FORMAT COM..., 


Il s’agit, comme pour l'entrée DIR, de l'entrée du programme FORMAT.COM, 
Voici ce qu’on peut dire sans connaissance approfondie d'AMSDOS. Le point 
entre le nom de fichier et l'extension n'est pas sauvegardé avec le nom 
puisque le nom de fichier est rempli par deux caractères espace (valeur 
ASCII 32 ou 20 hexa). Mais que signifie la valeur O devant le nom de 
fichier. Souvenez-vous du numéro user qui peut être affecté à chaque 
fichier. Ce numéro est rangé dans le premier octet de l'entrée et règle 
l'accès au fichier. Cette valeur a en outre une autre signification que 
nous étudierons un peu plus tard, 

Le nom de fichier est suivi de trois autres octets zéro et d’un octet de 
valeur 815, La signification de ces octets n'est pas très simple à 
découvrir, Seuls les octets 12 et 15 importent mais nous ne voulons pas 
encore vous en révéler la signification, Examinons d'abord les 16 octets 
manquant encore de l'entrée, 


55 56 577 00 00 C0 00 00 00 00 00 00 00 00 00 00 UVH...,.,,,,,,, 


La signification de ces octets n’est pas non plus très aisée à deviner. 
Toutefois, si nous essayions une instruction CAT alors que la disquette 
Master CP/M se trouve dans le lecteur, cela nous aiderait un peu à 
trouver la solution de ce problème. Dans le catalogue, le fichier 
FORMAT,.COM est présenté avec une taille de 3 K. Comme 1 K correspond à un 
bloc et que trois des 16 octets ci-dessus contiennent une autre valeur 
que 0, on est en droit de supposer que ces numéros sont les numéros de 
bloc, Cette supposition est parfaitement fondée, Les blocs occupés par un 
fichier sont en effet enregistrés dans les octets 16 à 31 d’une entrée du 
catalogue, 


Cela soulève beaucoup de questions nouvelles, La question principale est: 
que se passe-t-il lorsqu'un fichier dépasse 16 K? La réponse est très 
simple, AMSDOS offre simplement à de tels fichiers une entrée de fichier 
supplémentaire, Une telle extension d'entrée ne se distingue de la 
première entrée qu'à peu d'égards, C'est essentiellement que les autres 
blocs occupés sont enregistrés dans les octets 16 à 31. Le numéro user et 
le nom de fichier sont identiques dans les deux entrées. 


La prochaine question qui se pose est: à quoi AMSDOS reconnaît-il qu'une 
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extension suit? Il nous faut pour cela connaître la signification de 
l'octet 15 d'une entrée, Un petit exemple de calcul est nécessaire. Notre 
exemple FORMAT,.COM se compose de 3 blocs, Comme nous l'avons dit, un bloc 
contient 8 enregistrements, Le fichier FORMAT.COM peut donc comporter au 
maximum 24 enregistrements (18 hexa), Le 15 est en fait le nombre 
d'enregistrements du fichier FORMAT,.COM en hexadécimal, 

Si un fichier dépasse la taille maximum pouvant être couverte par une 
entrée, la valeur de l'octet 15 de l'entrée se calcule alors ainsi: 16 
(blocs) * 8 (enregistrements)= 128 ou 880, Dès que cette valeur figure à 
cet endroit, AMSDOS considère automatiquement qu'une extension suit. 

Pour qu'il n'y ait pas de confusion avec les très grands fichiers 
comportant plusieurs extensions, les extensions sont numérotées en ordre 
croissant dans l'octet 12, immédiatement après le nom de fichier, L'ordre 
dans lequel les extensions doivent être lues est ainsi déterminé. Avec 
cette organisation, un fichier peut atteindre une taille qui n'est 
limitée que par le fait qu'il ne reste plus de place dans le catalogue 
pour d'autres entrées ou par le fait que la disquette est pleine. 


Mais revenons brièvement sur le premier octet de l'entrée. Comme nous 
l'avons déjà indiqué, le numéro user est enregistré dans cet octet. 

Si vous avez déjà essayé le programme de lecture de secteurs quelconques 
ou le moniteur disquette et que vous avez ainsi inspecté les secteurs du 
catalogue de vos propres disquettes, vous avez peut-être rencontré pour 
certains fichiers la valeur 8&E5 au lieu d'un numéro user correct (0 à 
15), Les noms de fichier correspondants n'apparaissent cependant pas dans 
le catalogue lorsque vous entrez l'instruction CAT. Ce n'est pas étonnant 
car il s'agit très probablement de fichiers que vous avez vous-même 
supprimés au moyen de l'instruction ERA, 

AMSDOS est en effet très prudent dans la suppression des fichiers. Il 
recherche simplement le nom du fichier indiqué avec toutes ses extensions 
éventuelles et fixe le numéro user sur la valeur &E5, À partir de ce 
moment, ce fichier n'existe plus pour AMSDOS même si toutes les données 
figurent encore sur la disquette, Cette procédure prudente est très 
appréciable lorsque vous avez supprimé par erreur des fichiers 
importants, Il vous suffit en effet dans un tel cas de lire les secteurs 
du catalogue avec un moniteur disquette et de fixer à nouveau le numéro 
user sur une valeur raisonnable. Votre fichier sera alors ressuscité, La 
valeur 8E5 comme marque de suppression n'a par ailleurs pas été choisie 
par hasard. Après le formatage, tous les secteurs contiennent la valeur 
&E5, y compris donc les secteurs du catalogue. Si un accès au catalogue 
est alors entrepris, AMSDOS trouve alors pour chaque entrée possible la 
marque de suppression sans qu'une procédure spéciale soit donc 
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nécessaire. 


Cela nous amène au dernier point important du catalogue, la situation sur 
la disquette. Comme nous l'avons déjà indiqué, 64 fichiers peuvent être 
au maximum enregistrés dans le catalogue, À raison de 32 octets par 
entrée, on obtient un besoin de place mémoire de 2048 octets. Cela 
correspond à 2 blocs ou 4 secteurs où encore 16 enregistrements, Pour les 
trois formats, les deux premiers blocs de la première piste libre sont 
systématiquement utilisés pour le catalogue, En format S, le catalogue se 
trouve donc sur les secteurs 841 à &45 de la piste 2, en format D sur les 
secteurs 8&C1 à &C5 de la piste O et en format I sur les secteurs 801 à 
&05 de la piste 1. 

En guise de conclusion de ce chapitre sur le catalogue, encore deux 
conseils. 

Si le bit 7 du premier caractère de l'extension du nom de fichier, c'est- 
à-dire du neuvième octet de l'entrée, est mis le fichier reçoit alors 
l'attribut READ-ONLY. Les fichiers ainsi marqués ne peuvent être ni 
supprimés ni renommés sous AMSDOS et CP/M. Il y a (au moins) deux moyens 
de mettre ce bit. La première possibilité est offerte par l'instruction 
CP/M transitoire STAT,. La seconde possibilité est offerte par le moniteur 
disquette. Si vous avez trouvé l'entrée à protéger dans les secteurs du 
catalogue, additionnez la valeur 128 ou 880 à la valeur ASCII du premier 
caractère, modifiez cet octet en fonction du résultat et réécrivez tout 
simplement le secteur ainsi modifié sur la disquette. 

Notre seconde astuce vous permettra de dissimuler un fichier aux regards 
non-autorisés. Vous devez pour cela, comme pour l'attribut READ-ONLY, 
fixer le bit 7 du second octet de l'extension. Cette tâche peut également 
etre réalisée sous CP/M avec STAT ou sous AMSDOS avec notre petit 
moniteur disquette. Mais n'oubliez pas le nom d’un fichier que vous aurez 
ainsi protégé. Ni CAT ni DIR n'indiquerons plus en effet sa présence sur 
la disquette. 
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3,2,3 LA STRUCTURE DES FICHIERS 


Après que le chapitre précédent nous ait donné un aperçu des informations 
enregistrées dans le catalogue, nous allons maintenant voir comment les 
données proprement dites figurent sur la disquette. 


Se pose d'abord la question de savoir d'où les informations telles que 
type de fichier, longueur du fichier ou adresse de départ du programme 
chargé sont tirées lorsqu'on lit un fichier. Ces informations header ne 
figurent pas en effet dans l'entrée du catalogue. C'est donc qu'elles 
Sont sauvegardées avec les données. 


Cela pose cependant le problème de savoir sous quelle forme ces données 
supplémentaires doivent être sauvegardées pour qu’il n'y ait pas de 
confusion entre header et données. Nous allons effectuer quelques 
expériences qui nous donneront des indications sur la façon dont sont 
sauvegardées les données. 


Entrez par exemple la ligne: 
SAVE"X1.,BIN"”,B, 81000, 1024 


sur votre CPC et appuyez sur la touche ENTER, Le contenu du fichier ne 
nous intéresse pas pour le moment et vous pouvez donc choisir n'importe 
quelle adresse comme valeur de départ. Ce qui importe par contre, c'est 
la longueur de la zone de mémoire sauvegardée. Comme nous l'avons vu 
auparavant, les fichiers sont toujours sauvegardés sous AMSDOS par blocs 
de 1K, Comme nous avons choisi une longueur d'exactement 1K, le catalogue 
devrait indiquer pour ce fichier une longueur de 1K, Pensez-vous! Le 
fichier occupe ZK, 

Entrez à nouveau cette ligne mais en réduisant la valeur de la longueur 
de fichier de 100, à 924, À la surprise générale, le fichier ne semble 
pas être plus petit et il occupe toujours 2, 

Faisons une troisième tentative. Entrez comme longueur l'expression 1024- 
128. Et voilà, c'est accompli, Notre fichier X1.BIN n'occupe plus qu'1 K 
sur la disquette. Toute indication de longueur supérieure, ne serait-ce 
que d’un octet entraînera à nouveau une taille de fichier de 2 K. 


Un enregistrement, autrement dit 128 octets, sont donc sauvegardés en 
plus des données, Dans cet enregistrement figurent toutes les 
informations header, L'enregistrement-header est le premier 
enregistrement de presque tous les fichiers. Pourquoi cette réserve? 
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Essayez par exemple le petit programme suivant: 


10 OPENOUT"X1.DAT" 
20 FOR i=1 TO 1024 
30 PRINT#9, "x"; 

HO NEXT i 

50 CLOSEOUT 


D'après nos expériences précédentes, on pourrait supposer que le fichier 
X1.DAT figurera au catalogue avec 2K. Mais il n’en est pas ainsi. En fait 
le fichier n'a qu'une taille de 1K, soit exactement la taille 
correspondant au nombre de caractères qui ont été écrits dans le fichier. 


Cela nous donne la règle suivante: 


Les purs fichiers ASCII qui ont été sauvegardés avec la marque de 
type de fichier 816, n'ont pas d'enregistrement-header. (Le système 
d'exploitation n'évalue que le quartet faible, c'est-à-dire que 816 
et 836 sont également traités comme de purs fichiers ASCII) 


Sur tous les autres fichiers, donc par exemple les programmes Basic 
ou machine, le premier enregistrement est l'enregistrement-header, 
qui sera copié lors du chargement dans la zone header. 


Bien. Mais comment un programme peut-il déterminer si un fichier est un 
pur fichier ASCII. En effet, il n’y a dans le catalogue aucune indication 
sur le type de fichier. Ce problème a certainement donné quelque peu la 
migraine aux programmeurs de 1'’AMSDOS, 

Finalement on a choisi une voie qui semble à peu près passable. 

Lors de l'ouverture d'un fichier d'entrée, une valeur de contrôle sur 16 
bits est systématiquement constituée avec les 66 octets du premier 
enregistrement. Le résultat est comparé au contenu des octets 67 et 68 de 
l'enregistrement. Si les valeurs sont identiques, cet enregistrement est 
à peu près certainement un enregistrement-header. Si cependant cette 
condition de contrôle devait par hasard être remplie sur un fichier 
ASCII, le premier enregistrement du fichier serait perdu, Cette 
possibilité est cependant très peu probable, de sorte qu'elle n'est pas 
envisagée par le système d'exploitation, 
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3,2,4 L'ECRITURE PHYSIQUE DES DONNEES SUR LA DISQUETTE 


Etes-vous de ceux qui aiment bien remonter au fond des choses? Dans ce 
cas ce chapitre est fait pour vous. Nous allons vous montrer comment les 
données figurent effectivement sur la disquette. Nous n'entendons pas par 
données, dans ce chapitre, le contenu de n'importe quels fichiers, mais 
tout ce qui est placé sur une piste, sous une forme ou sous une autre. 
Nous expliquerons également dans ce contexte des notions telles que ID 
secteur, Gap où Adress Mark. 


3,2.4,1 MF, MFM, BITS ET MAGNETISME 


Comme vous le savez déjà, la surface de la disquette est subdivisée en 40 
sections ou pistes, La tête de lecture/écriture du lecteur de disquette 
peut être placée de façon sélective au dessus de chacune de ces pistes au 
moyen d'un moteur de pas. De même qu'avec le lecteur de cassette, les 
données sont sauvegardées sur la disquette bit par bit. La sauvegarde bit 
par bit des données et l’utilisation d'enregistreurs de données 
magnétiques représentent cependant les seuls points communs entre les 
deux systèmes de sauvegarde. 

Avec le lecteur de disquette, la couche magnétique de la disquette est 
entièrement magnétisée, Sur le lecteur de cassette, on aurait la plus 
belle surmodulation possible avec un facteur de résonance de 100 pour 
cent. Ce facteur de résonance ‘idéal’ n'est cependant absolument pas 
génant pour le lecteur de disquette. Au contraire, plus la magnétisation 
est réussie lors de l'écriture, plus la lecture ultérieure des données 
sera simple, 

Pour comprendre le format d'enregistrement utilisé sur le CPC, il nous 
faut faire un petit détour par la physique, La tête de lecture/écriture 
d'un lecteur de disquette se compose essentiellement d’une bobine. Les 
bobines sont parmi les composants électroniques les plus intéressants 
même si elles sont malheureusement souvent méconnues, Une des propriétés 
capitales des bobines est constituée par le fait qu'un champ magnétique 
dans une bobine produit une tension. Il est toutefois très important que 
le champ magnétique se modifie en permanence pour produire une tension 
continuelle dans la bobine, Un champ magnétique statique, qui ne se 
modifie donc pas, ne produit par contre aucune tension. On trouve ce 
principe par exemple dans la dynamo d'une bicyclette. 

L'intéressant est que cette particularité peut être également inversée, 
Une tension placée sur une bobine produit un champ magnétique. Si une 
tension changeante est envoyée, un champ magnétique se modifiant au même 
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rythme sera produit. 

Ces deux propriétés de la bobine sont utilisées dans la tête de 
lecture/écriture du lecteur de disquette. Si une information doit être 
écrite sur la disquette, une tension alternative est placée sur la tête 
qui produira un champ magnétique. Ce champ magnétique magnétise le 
revêtement de la disquette, la sauvegarde est ainsi effectuée. Dans le 
cas inverse, le champ magnétique alternatif sur la disquette produit dans 
la bobine une tension qui est amplifiée et traitée par une électronique 
appropriée. 


On pourrait maintenant avoir l'idée de marquer un lowbit (bit 0) par une 
absence de magnétisation et un highbit (1) par contre par des champs 
magnétiques sans cesse changeants,. On reconstituerait ainsi directement, 
lors de la lecture, les signaux digitaux, Ce n'est cependant pas tout à 
fait aussi simple, L'électronique et la mécanique du lecteur qui seraient 
en effet nécessaires avec cette méthode devraient en effet travailler de 
façon extrêmement précise car il faudrait mesurer de façon très exacte 
les durées pour low et high lorsque plusieurs low bits ou plusieurs high 
bits se suivent sur la disquette. 

Le problème devient plus simple si on sauvegarde avec les données une 
fréquence fixe de référence. Cette fréquence permet alors de déterminer 
très aisément la longueur d'une cellule de bit. Mais l'enregistrement de 
champs magnétiques se modifiant rapidement dans le cas d'un high bit ne 
peut pas non plus être utilisée sous cette forme. Au lieu de cela, on 
procède simplement ainsi: si un high bit doit être sauvegardé, on produit 
une impulsion exactement entre deux impulsions de fréquence, alors que 
pour un zéro on ne produit aucune impulsion entre deux impulsions de 
fréquence, La figure 3,2.4,1,1 montre comment peut se présenter une telle 
chaîne d’impulsions. 

Cette chaîne d'impuisions commande un flip-flop (bascule électronique) 
qui inverse l'état de sa sortie lors de chaque impulsion d'entrée. Vous 
voyez dans la figure 3,2.4,1,2 la tension de sortie qui en résulte. 

Le signal de sortie résultant convient parfaitement à la commande de la 
tête de lecture/écriture. Si la tension de sortie du flip-flop est high, 
un courant électrique traverse la bobine dans une direction, la couche 
magnétique de la disquette est magnétisée dans une direction. Si 
cependant la tension de sortie du flip-flop se modifie, la direction du 
courant dans la bobine s'inverse également, ce qui entraîne également une 
inversion de la direction de magnétisation de la disquette, 
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1) IMPULSIONS DE FRÉQUENCE 


2) HIGH-BIT 








3) LOW-BIT, NON ENREGISTRE 


4) UNE CELLULE DE BIT = 2 UNITES D'HORLOGE 
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FIGURE 3.2.4,1,1 


DEROULEMENT DU SIGNAL SUR LA TETE DE LECTURE/ECRITURE LORS 
DE L'ECRITURE (DENSITE SIMPLE) 


FIGURE 3,2.4,1,2 
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Si les données sont ainsi enregistrées, avec des différences lonw-high, la 
disquette contient ensuite plusieurs petits aimants qui sont magnétisés 
dans l’une ou l’autre direction, en fonction de l'enregistrement, La 
figure 3,2,4,1,3 représente graphiquement cette disposition des aimants 
les uns à la suite des autres. 


ÉD ES CANCER CA OR PRE LR CAR LOC LERS 





FIGURE 3,2.4,1,3 


Mais que se passe-t-il lors de la lecture des données? Nous avons dit que 
la disquette est entièrement magnétisée, Les nombreux petits aimants 
défilent devant la tête de lecture grâce à la rotation de la disquette. 
Chaque modification du champ magnétique produit dans la bobine une petite 
impulsion qui peut être amplifiée et traitée. Le reste du temps le champ 
magnétique ne se modifie pratiquement pas et aucune tension n'est donc 
produite. La figure 3.2,4.1.4 représente le signal de sortie amplifié. La 
ressemblance avec la première figure n'est pas le fait du hasard. Nous 
avons à nouveau lu entièrement les informations qui avaient été placées 
sur la disquette. 


SIGNAL DE LECTURE RENFORCE 
1) IMPULSIONS DE FREQUENCE 
2) HIGH-BIT 


3) LOW-BITS, PAS DE MODIFICATION DANS L'ALTERNANCE DU 
COURANT 
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FIGURE 3,2.4,1,4 
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L'électronique d'évaluation n'a ainsi affaire, avec ce procédé, qu'à deux 
durées différentes. La première durée, la plus longue est celle entre 
deux impulsions de fréquence, elle marque les low bits. La seconde durée, 
la plus courte correspond au délai entre impulsion de fréquence et 
impulsion de données, elle marque les high bits. Comme les durées sont 
respectées avec une assez grande précision, les impulsions de données 
peuvent être séparées des impulsions de fréquence avec des branchements 
mono-flop simples puisqu'il y a toujours une fréquence disponible pour la 
synchronisation. 


Encore un mot sur les durées qui apparaissent: une impulsion de fréquence 
dure toujours 500 nanosecondes (un demi millionième de seconde), le délai 
entre deux impulsions de fréquence est de 8 microsecondes, L'écriture ou 
la lecture d'un octet avec le procédé ainsi décrit nécessite donc 8 * 8 = 
64 microsecondes. Avec une durée nominale de rotation de la disquette de 
200 millisecondes, on peut donc placer sur la disquette 40 (pistes) * 200 
(millisecondes) / 64 (microsecondes par octet) = 125000 octets. 


Et pourtant vous disposez sur votre disquette d'environ 40000 à 50000 
octets de plus? C'est vrai, nous vous avons présenté en premier le format 
en densité simple ou format MF, En partant du format que nous venons de 
décrire, nous allons maintenant décrire le format MFM ou format en double 
densité qui est utilisé sur le CPC, 


Quelques ’cerveaux' n'étaient pas satisfaits du procédé que nous venons 
de décrire, On continua à fouiner Jusqu'à ce qu’on développe un procédé, 
certes plus compliqué, permettant de presque doubler la capacité mémoire 
disponible. On partit pour cela de l'idée qu’il devait être possible de 
renoncer aux impulsions de fréquence, même si cela n'est pas entièrement 
possible. L'enregistrement des high bits ne crée pas de difficultés 
particulières puique chaque bit 1 à enregistrer produit sur la disquette 
une inversion de flux. Malheureusement, il faut également pouvoir 
enregistrer également des bits zéro. Et quand plusieurs bits zéro se 
suivent, la synchronisation devient très difficile. 

La solution consiste à enregistrer simplement des bits de fréquence 
lorsque plusieurs zéros se suivent, Ce sont à nouveau les durées qui 
peremettent de distinguer entre les bits de données et les bits de 
fréquence, Il faut toutefois distinguer maintenant trois durées 
différentes, Les durées possibles sont représentées graphiquement dans 
les figures 3.2.4,1.5 et 3.2.4,1,6, La première figure représente les 
informations en entrée, la seconde représente l'enregistrement sur la 
disquette, 
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1) HIGH-BIT 
2) LOW-BIT, pas d'enregistrement 


3) BIT DE FRÉQUENCE, lorsque plus d'un low-bit doivent 
être enregistrés 


4) 1 CELLULE DE BIT = 1 UNITE D'HORLOGE 
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FIGURE 3,2,4,1,5 


DEROULEMENT DU SIGNAL SUR LA TETE DE LECTURE/ECRITURE LORS 
DE L'ECRITURE (DOUBLE DENSITE) 


FIGURE 3,2,4,1.6 
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Une unité de temps simple est constituée par le temps qui s’écoule entre 
deux 1 consécutifs, une durée double caractérise la séquence de bits 
1-0-1. Si plusieurs zéros se suivent, la troisième durée possible est 
utilisée, Cette durée d'une unité et demi signale le passage d’une 
impulsion de fréquence à une impulsion de données ou inversement. 


Malheureusement les graphiques ne montrent pas très bien l'avantage 
immédiat du procédé MFM, du fait de l'échelle choisie. Essayez de vous 
représenter que la division du temps n'est pas la même dans les deux 
représentations graphiques, Si l'on se représente en effet que 
l'enregistrement physique avec ce procédé travaille avec le même nombre 
de changements de flux possibles, c'est-à-dire avec le même nombre de 
modifications possibles du champ magnétique, on obtient en fait un 
doublement de la capacité de la disquette. 

Il est évident qu'avec ce procédé l'électronique d'évaluation doit être 
nettement plus précise qu'avec le format MF plus simple, Sur le CPC, 
l'évaluation est effectuée de façon extrêmement fiable par le séparateur 
de données dont nous avons déjà parlé. 


Reste cependant encore une question. Comme une disquette formatée en 
format MF a une capacité de 125000 octets, une disquette écrite en format 
MFM ou format double densité devrait normalement pouvoir stocker 250000 
octets. La capacité affichée n'est cependant que d'environ 182000 octets. 
Qu'est donc devenu le reste? 


3,2.4,2 GAPS, IDs, et ADRESS-MARKS 


Dans la section précédente, nous avons d'abord subdivisé la disquette en 
différentes pistes. Cela était rendu nécessaire par l'utilisation d'un 
moteur de pas pour la commande de la tête. Dans la présente section, nous 
allons diviser la disquette comme un gâteau, en différentes sections, les 
secteurs. 

Si nous ne faisions pas cette subdivision, nous pourrions difficilement 
placer sur une piste plus d'un fichier. Et un fichier occuperait toujours 
une piste entière avec ses 6250 octets, quelle que soit la place 
effectivement nécessaire pour le fichier, Il s'agit là bien sûr d'un 
procédé très peu économe, surtout pour les fichiers de très petite 
taille. Pour la gestion des fichiers séquentiels, il faudrait en plus 
disposer dans l'ordinateur au moins un buffer d'une capacité de 6250 
octets. Pour lire un fichier et écrire simultanément dans une autre 
fichier, le besoin de place mémoire s'élèverait même à 12500 octets. Il 


PA E 


s'agit d’une dépense de place mémoire considérable, même pour des 
ordinateurs d'une capacité de 64K. 

Comme on voit, l'idée de subdiviser en zones plus petites est très 
intéressante, Mais pour séparer ces zones nettement entre elles, il faut 
effectuer un travail relativement complexe, Ce travail occupe de la place 
sur la disquette, de sorte que ce n’est plus la capacité originelle dont 
on disposera pour la sauvegarde des données. La première donnée est 
appelée la capacité non-formatée, la capacité effectivement disponible 
est appelée capacité formatée, 

Nous allons maintenant examiner de plus près ce formatage et la capacité 
qui en résulte. La figure 3.2,4.2,1 représente les procédés décrits ici. 
Cette figure représente le contenu complet d'une piste, 


La reconnaissance du début physique d'une piste ne pose pas de difficulté 
particulière au FDC, grâce à l'orifice d'index et à un faisceau lumineux 
bien réglé. Le faisceau lumineux d'index produit une impulsion lorsque le 
faisceau lumineux parvient au récepteur à travers l'orifice d’index. La 
fin de l’impulsion est pour le FDC le signal qui lui indique de commencer 
immédiatement le formatage. Son premier travail consiste à écrire sur la 
disquette 80 octets avec la valeur &4E, Cette zone est appelée GAP UA, 


Un GAP est, traduit littéralement, un vide, Pourquoi ce vide? La réponse 
est très simple, Le vide comble les tolérances entre les différents 
lecteurs de disquette. Malgré la haute précision incontestable des 
lecteurs de disquette, il y a malgré tout de petites différences dans le 
réglage des faisceaux lumineux d'index des différents lecteurs de 
disquette, Le GAP 4UA a été choisi suffisamment grand pour que ces 
différences de réglage ne prétent pas à conséquence, tant qu'elles 
restent dans certaines limites, C’est ainsi que les supports de données, 
c'est-à-dire les disquettes elles-mêmes peuvent être lues et écrites sans 
difficulté sur des lecteurs différents, 

Après le GAP 4A est écrite une zone SYNC de 12 octets d'une valeur de O. 
Comme nous l'avons vu, aussi bien en format MF qu’en format MFM, c'est la 
fréquence d'horloge qui est enregistrée lorsqu'il y a plusieurs O0 qui se 
suivent. Le terme SYNC signifie que Ile FDC est synchronisé avec la 
fréquence d'horloge. À la suite des 12 octets Sync, le FDC écrit trois 
octets qui sont appelés Index Adress Mark, Ces trois octets sont 
structurés d'après un schéma très spécial et ils peuvent être reconnus 
par le FDC grâce à une électronique spéciale du chip. L'Index Adress Mark 
n'est écrite qu'une fois au début d’une piste, c'est-à-dire immédiatement 
à la suite de l'orifice d'index. Elle constitue en quelque sorte une 
marque Supplémentaire du début de la piste, À la suite de l'Index Adress 


Far 


Mark est formaté un octet avec une valeur de &FC puis un autre GAP, le 
GAP 1, constitué de 50 octets &4E, Ce GAP est nécessaire pour donner au 
FDC, lors d'une lecture ultérieure, suffisamment de temps pour le 
traitement interne de l'Index Adress Mark. Le formatage du début de piste 
caractéristique est alors achevé. Ensuite viennent des zones qui existent 
pour chaque secteur. 


Chaque secteur commence par 12 octets Sync. Comme précédemment, ce sont 
uniquement des zéros, donc uniquement les informations de fréquence, qui 
sont écrits, Les octets Sync sont suivis d'une Adress Mark, l'ID Adress 
Mark cette fois. L’ID AM a également 3 octets de long et elle peut être 
décodée électroniquement par le FDC, Après l'ID AM suit un octet d'une 
valeur de &FE. 

Jusqu'à cet endroit, tous les secteurs de la disquette sont identiques, 
Mais pour pouvoir accéder plus tard de façon sélective aux pistes et 
secteurs, il est nécessaire de les marquer, C'est exactement cette tâche 
qui est prise en charge par les quatre octets qui suivent maintenant et 
qui constituent le champ ID, Dans l'ordre d'écriture sont entrés ici le 
numéro de piste, la face de disquette (0 ou 1), le numéro de secteur et 
la taille du secteur. La dernière indication ne peut bien sûr pas être 
entrée directement car il faudrait sinon un champ de deux octets pour les 
Secteurs de 512 octets de long. Le codage correspondant correspond aux 
indications qui sont faites lors du formatage, Les secteurs de 512 octets 
de long sont marqués par un 2 dans cet octet, 

On donne ainsi à chaque secteur son identification spéciale, l'ID 
secteur. Celle-ci permettra plus tard un accès sélectif. Les développeurs 
du système n'ont cependant rien laissé au hasard, Pour être protégé 
contre des erreurs éventuelles, une valeur de contrôle (checksum) de deux 
octets est formée d'après un procédé spécial à partir des trois octets de 
l'ID AM, de l'octet &8FE et des quatre octets du champ ID. Le procédé 
utilisé est appelé Cyclic Redundancy Check ou CRC. Il permet une 
détection extrêmement fiable des erreurs de lecture, Les deux octets CRC 
ainsi obtenus sont placés immédiatement à la suite du champ ID, 

Pour donner au FDC suffisamment de temps pour tester les octets ID et CRC 
lors d'une lecture ultérieure des données, vient ensuite d’abord un autre 
GAP, le GAP 2 d'une longueur de 22 octets. Sur ce GAP également, la 
valeur de données employée (qui n'a d’ailleurs pas d'importance) est à 
nouveau &HE. Le GAP 2 a une signification supplémentaire, Toutes les 
données d’un secteur seront écrites à la suite du GAP 2 lors de 
l'écriture ultérieure d'un secteur. Le GAP 2 permet au FDC d'effectuer la 
commutation entre lecture et écriture, une procédure qui prend toujours 
un certain temps. 
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@ FOR 1024 BYTES/SECTOR + 
4 S12 BYTES -1S SECTORS 
NOT AN IBM ST AND ARD 
BUT OFTEN USED 


Avez-vous deviné ce qui vient après le GAP 2? Exact, c'est une zone Sync 
de 12 octets zéro qui annonce enfin le début de la zone des données 
proprement dite. Mais les données ne sont pas encore écrites sur la 
disquette. Un Sync est en effet toujours suivi d’une zone Adress Mark. 
L'AM qui est maintenant formatée est la DATA Adress Mark qui a la même 
structure que l'ID AM et qui peut donc également être décodée par le FDC. 
Pour la distinguer de 1’ID AM, la DATA AM est cependant suivie d'un octet 
d'une valeur &FB. 

Et c'est maintenant que tout commence, Enfin vient la zone des données 
qui est remplie lors du formatage avec la valeur de l'octet de 
remplissage. La taille de cette zone est variable mais elle est fixée 
lors du formatage dans les indications qui sont fournies au FDC. C’est 
ainsi que sont possibles des zones de données d'entre 128 et 4096 octets. 
Dans ce dernier cas cependant, on ne peut placer qu’un seul secteur sur 
une piste, de sorte qu'on utilise presque toujours des tailles de secteur 
plus réduites, Sur le CPC, la taille de secteur est fixée à 512 octets. 
Une valeur de contrôle de deux octets est également formée d’après le 
procédé CRC à travers la zone de données, Pour détecter également des 
erreurs dans l’ID DATA, ces octets sont inclus dans la formation du CRC, 
de sorte qu'avec une longueur de secteur de 512 octets, ce sont en tout 
516 octets qui sont vérifiés. La fin d'un secteur est constituée par le 
GAP 3, La longueur de ce gap peut être indiquée lors du formatage. Sur le 
CPC, 82 octets &4E sont écrits lors du formatage. Ce gap a une 
signification tout à fait particulière, Si en effet de nouvelles données 
sont écrites plus tard sur les secteurs d'une disquette formatée, il est 
extrêmement improbable que la disquette tourne exactement à la même 
vitesse que lors du formatage. Or si la vitesse de rotation est ne 
serait-ce que légèrement supérieure, l'arc de cercle nécessaire pour le 
secteur sur la piste sera obligatoirement plus grand puisque la vitesse 
d'enregistrement est constante, S'il n'y avait pas le GAP 3, un tel 
enregistrement plus long pourrait tout simplement effacer un ID secteur 
venant immédiatement à la suite et le secteur suivant ne serait plus 
lisible, Les différences de longueur des secteurs produites par les 
variations de la vitesse peuvent cependant être neutralisées par le GAP 3 
bien que le GAP 3 soit également produit lors de l'écriture d'un secteur. 
Cependant la longueur du GAP produit lors de l'écriture d'un secteur est 
considérablement réduite. En effet, 42 octets GAP seulement sont écrits, 
de sorte qu'il reste une marge suffisante pour les différences qui 
peuvent se produire, 

Le Secteur est alors entièrement formaté, le FDC demande maintenant les 
valeurs pour le prochain secteur et les écrit également sur la disquette. 
Quand tous les secteurs ont ainsi été formatés les uns à la suite des 
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autres, des octets GAP sont alors écrits jusqu'à ce que l'impulsion 
d'index apparaisse, Quand se produit l'impulsion d'index, le formatage de 
cette piste est terminé. 


Comme on voit, le FDC a beaucoup à faire pour préparer une piste à être 
utilisable. D'autres FDC que le 765 sont loin d'être aussi prévenants. 
C'est ainsi par exemple que les disk controlilers souvent utilisés de la 
série 197x ont par exemple besoin que presque chaque octet leur soit 
envoyé par le processeur, le programme de formatage devient alors très 
compliqué et long, Le soutien important qu'apporte le 765 transforme 
presque le formatage avec ce FDC en Jeu d'enfant. 
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CHAPITRE 4: LA ROM ET LA RAM DE L'AMSDOS 


Nous reconnaissons volontiers qu'il n'est pas donné à tout le monde 
d'étudier les détails internes d'un système d'exploitation. Beaucoup de 
possesseurs d'ordinateur sont totalement satisfaits si les programmes 
existants fonctionnent sans erreur et de façon fiable, Ces utilisateurs 
d'ordinateur peuvent en toute quiétude sauter le présent chapitre. Si 
cependant un jour les possibilités disponibles avec AMSDOS ne suffisent 
plus pour certaines tâches déterminées, le listing de la ROM peut être 
d'un très grand secours. La gestion de fichier relatif présentée dans cet 
ouvrage n'aurait par exemple pas pu être programmée sans une connaissance 
précise de la ROM, Pour tous ceux qui veulent abandonner les sentiers 
battus et se jeter dans le chaos des bits et des octets, une sorte de 
carte d'état-major peut se révéler extrêmement utile, Vous pouvez 
utiliser le listing de la ROM ainsi que les indications sur la RAM 
Système en guise de carte d'état-major, Grâce à elle vous vous orienterez 
certainement plus aisément dans le système d'exploitation que si vous 
deviez chercher de nouvelles voies sans point de repère. 


Nous regrettons les tâches blanches qui figurent encore sur cette carte 
d'état-major. Mais si vous étudiez le listing de façon approfondie, vous 
comprendrez peut-être que, même après deux mois de travail intensif sur 
le listing de la ROM, nous n'ayons pas pu élucider toutes les énigmes de 
l'AMSDOS, Le style de programmation des programmeurs de l'AMSDOS est 
parfois ‘vraiment décapant'! 


4,1 LA RAM SYSTEME DE L'AMSDOS 


Comme vous le savez, après la mise sous tension du lecteur de disquette 
et du CPC, vous disposez d'une mémoire de 42249 octets pour les 
programmes Basic, Sans le lecteur de disquette, c'est-à-dire quand AMSDOS 
n'a pas été activé, ce sont cependant 43533 octets dont vous disposez 
comme le CPC vous l'indique si vous le lui demandez, La différence de 
1284 octets n’est cependant pas entièrement à mettre à la charge du 
lecteur de disquette. Celui-ci se réserve cependant le plus grand morceau 
lorsqu'il est mis sous tension, soit 1024 octets, Cette zone de 1024 
octets commence habituellement en &A700, Cette limitation a sa raison 
particulière dans la gestion des ROMS externes par le CPC. Le CPC peut 
gérer en tout 252 ROMs externes dans la zone de mémoire de 8C000 à 8FFFF. 
Il faut à cet égard distinguer trois différents types de ROMs, les ROMs 
de premier plan, les ROMs de second plan et les ROMs d'extension, C'est 
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le premier octet (&C000) de chaque ROM qui détermine le type d’une ROM 
donnée. 

Après la mise sous tension, on teste d’abord si une ROM externe de 
premier plan se trouve sur le CPC avec l'adresse 0. On effectue dans ce 
but un OUT &DF00,0, Si le système d'exploitation constate qu'il ‘se 
passe’ quelque chose à cet endroit, la Rom externe est initialisée et 
prend ainsi le contrôle de la machine. Si cependant aucune Rom externe ne 
se trouve sur le port d'extension avec cette adresse de sélection de ROM, 
alors la ON Board ROM le Basic, est initialisée comme ROM 0. Après 
l'initialisation, le programme de premier plan activé doit activer 
d'éventuelles ROMs de second plan, Chaque adresse de sélection de ROM, en 
commençant par l'adresse ROM 7 est alors interrogée à cet effet, pour 
Savoir si une telle ROM de second plan existe. Dans le cas où existe une 
telle ROM, celle-ci est alors automatiquement initialisée. 

Si lors de la mise sous tension de l'ordinateur une autre ROM que la ROM 
de premier plan intégrée a pris le contrôle du CPC, elle est alors libre 
de se réserver Une zone de la RAM comme mémoire de travail. Elle peut par 
exemple décaler à cet effet vers le bas la limite supérieure de la RAM, 
c'est-à-dire le HIMEM, Lors de la réservation ultérieure de la mémoire 
pour AMSDOS, la mémoire occupée par AMSDOS sera alors également décalée. 
Dans ce cas, la RAM AMSDOS pourrait par exemple commencer en &A000. 

Cette flexibilité de l'ordinateur a bien sûr également un inconvénient, 
Toutes les indications d'adresses que nous allons vous donner par la 
suite sur la zone commençant en 84700 n'ont pas de valeur absolue. Dans 
les conditions que nous venons de décrire, ces adresses peuvent en effet 
fort bien être situées dans une autre zone, Si l’on veut donc organiser 
des programmes avec accès direct à la RAM AMSDOS de la façon la plus 
souple possible, il ne faut accéder aux variables que de façon indirecte, 
On doit à cet effet rechercher le début effectif de la RAM AMSDOS et 
accéder aux variables avec le décalage correspondant au début de cette 
mémoire. 

Ce qui semble Un peu compliqué dans nos explications deviendra plus 
évident dans un exemple que nous vous donnerons un peu plus tard, Il nous 
faut cependant indiquer encore une autre particularité du lecteur de 
disquette ou de la RAM de 1l'AMSDOS. Il n'y a pas seulement, en effet, la 
zone de 1K que nous avons déjà décrite dans laquelle sont placées la 
plupart des variables système. Dans la zone de g&BE4O à &BE7F, 64 autres 
octets sont utilisés pour le lecteur de disquette, Cette zone ne peut pas 
etre décalée, elle est fixée une fois pour toutes. 

Cette zone est cependant quelque peu menacée. La pile du processeur est 
normalement placée de façon descendante à partir de &C000. Dans les 
programmes qui ne gèrent pas correctement cette pile, ou qui ont besoin 
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d'une très grande pile, par exemple à cause d'une programmation 
récursive, il peut parfaitement arriver que la pile devienne si grande, 
du fait d’un trop grand nombre de PUSHs ou de CALLSs, qu'elle efface une 
partie de la zone mémoire du lecteur de disquette, Dans le premier cas, 
il faut corriger au plus vite le programme, Dans le second cas, il faut 
placer la pile dans une autre zone de la mémoire. 


Mais venons-en maintenant à la liste de ces 64 octets, pour autant que 
nous en ayons compris la signification. 


LISTE DE REFERENCE RAM SYSTEME BEUO à BE7F 


BEUO, BE41 Vecteur sur header paramètres disquette, lecteur A 
BEU2, BE43 Vecteur sur bloc paramètres disquette, lecteur À 


BEUU, BEUS Délai d'attente après MOTOR ON 


BEUG6, BEU7 Temps de fin de rotation du moteur du lecteur de disquette 
après le dernier accès 

BEU8 Valeur pour boucle d'attente lors du formatage d'une piste 

BEU9, BEUA Valeurs pour une longue boucle de temporisation 

BEUB Nombre d'octets pour lecture de l'état d'interruption 

BEUC-BE52 Buffer pour octets de la phase résultat du FDC 

BES3 Lecteur (HS/US) 

BES4 Piste 

BES5 Enregistrement 

BE56 Lecteur (HS/US) 

BE57 Piste 

BE58 Enregistrement 

BES59 Nombre d'enregistrements par piste (masque de bloc + 1) 

BESA Lecteur CHS/US) 

BESB Piste 

BESC Enregistrement 

BESD 

BESE Flag lire/écrire secteur 

BESF Flag moteur marche/arrêt 


BE60, BE61 Vecteur sur buffer 1/0 d'enregistrement 
BE62, BE63 Vecteur sur buffer [/0 de secteur 


BE64, BE6S5 Mémoire provisoire de la pile 
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BE66 Nombre de tentatives de lecture 


BE67, BE6C Tick block 

BE67, BE68 Ticker Chain, chaînage de la liste ticker 

BE6S, BEGA Ticker count, nombre des tickers, pour  expulser 
l'évènement 

BEGB, BE6C Reload Count 


BEGD, BE73 Event block 
BEG6D, BEGE Event Chain, chaînage des évènements 


BE6F Event Count 

BE70 Event Class 

BE/71, BE72 Adresse de la routine EVENT 

BE73 ROM select de la far adress pour la routine Event. 
BE74 Buffer pour le numéro de piste voulu 

BE75 Buffer pour code d'opération à envoyer au FDC 


BE76, BE77 Vecteur sur buffer 1/0 de secteur 
BE78 Flag pour messages d'erreur du controller ON/OFF 


BE79, BE7C Non-utilisé dans la version actuelle d'AMSDOS 


BE7D, BE/E Mémoire IY, low adress memory pool pour le lecteur de 
disquette 
BE7F Vecteur pour la manipulation des routines disque (DISC OUT 


OPEN etc.), normalement 8C9, RETurn, 


Il nous faut encore faire quelques remarques sur ces adresses, Comme il 
s'agit d'adresses absolues, comme nous l'avons déjà indiqué, et que leur 
situation dans la zone d'adresses ne change pas, il est possible 
d'intervenir ici par de simples POKES. Toutefois certaines variables ne 
sont modifiées qu’au cours du déroulement de routines disque, de sorte 
qu'on ne peut y intervenir utilement à partir du Basic. Il est toutefois 
possible d'intervenir de façon importante en d'autres endroits par 
quelques POKES, 

Essayez par exemple de POKEr une valeur de 1 dans la case mémoire 8BEUS, 
Entrez ensuite l'instruction CAT. L'effet est surprenant. Si vous avez 
assez de patience, vous obtenez un CATalogue tout à fait normal, Cela 
aura toutefois duré beaucoup plus longtemps que d'habitude, Les valeurs 
des cases mémoire 8BE44 et 8&BE4S déterminent en effet le temps d'attente 
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après la mise en marche du moteur, On attend normalement environ une 
seconde mais nous avons considérablement augmenté cette durée. 


Vous pouvez obtenir par des POKES dans les cases mémoire 8BE46/8BE47 une 
autre manipulation de durées qui peut être très intéressante dans 
certains cas, Les valeurs de ces cases mémoire déterminent le temps de 
fin de rotation des moteurs du lecteur de disquette après le dernier 
accès à la disquette. Il peut cependant parfaitement arriver lors de la 
lecture et du traitement des données d’un fichier, que ce délai soit 
Justement en train de s’écouler. Le moteur est alors à nouveau mis en 
marche pour le prochain accès mais on attend encore à nouveau une seconde 
pour que le moteur arrive à plein régime. Si le temps de fin de rotation 
est tellement allongé que le moteur ne s'arrête plus entre les différents 
accès, on peut constater un net accroissement de la vitesse de 
traitement, Essavez donc vous-même. 


Les octets des adresses 8BEU4C à &BES2 sont également très intéressants. 
C'est ici que sont placées les indications de la phase résultat après 
toutes les opérations du FDC, Vous pouvez interpréter vous-même à votre 
guise ces valeurs, ce qui est extrêmement important dans le cas où on 
interdit les messages d'erreur du controller, 


Nous arrivons maintenant à la prochaine case mémoire, &8BE78, que nous 
avions déjà évoquée. Si une valeur de &8FF est entrée ici, les messages 
d'erreur du FDC ne seront pas sortis sur l'écran. Dans ce cas il vous 
faut réagir vous-même aux erreurs, au vu des octets de la phase résultat. 


Les cases mémoire &BE7D et &BE7E sont très importantes pour l'accès à la 
zone RAM décalable de 1K de Il'AMSDOS, C'est ici qu'est rangée l'adresse 
de départ de cette zone de 1K. Ici figure normalement l'adresse &A700, 
Si cependant le début de la RAM AMSDOS est modifié pour une raison 
quelconque, c'est dans ces cases mémoire que vous trouverez l'adresse de 
départ correcte. 


La case mémoire 8BE7F est certainement très intéressante pour les grands 
experts, Vous trouvez ici normalement la valeur &C9, C'est le code 
d'opération Z80 pour RETurn. Chaque accès aux routines CAS détournées 
passe par ce RETurn. Vous avez ainsi une possibilité très simple pour 
intervenir aussi bien avant qu'après l'exécution des routines. Il est 
certes également possible de détourner encore une fois les routines CAS 
détournées, c’est-à-dire de leur fournir les adresses de vos propres 
routines, mais ce procédé est très compliqué, 
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Mais venons-en maintenant à la partie de loin la plus vaste de la Ram 
système, Dans la présentation suivante, nous sommes parti du principe 
qu'aucune extension n'est connectée, Nous nous référons ainsi aux 
adresses de la zone commençant en &A700, 

Ceux d’entre vous qui sont des experts ès CP/M devront toutefois chercher 
un peu par eux-mêmes, l'organisation de la RAM nécessaire pour le BIOS 
est ici quelque peu différente. C’est ainsi que les FDCs figurent aux 
adresses standard (85C à æ&7C)., Les headers de paramètres de disque 
figurent dans la mémoire à partir de &AE58, les blocs de paramètres de 
disque à partir de &ADD8. 


LISTE DE REFERENCE RAM SYSTEME A700 à AA80 


A700 lecteur appelé 
A701 user appelé 
A702 lecteur actif 


A703, A70ù pointeur sur le header de paramètres de disque (A910/A920) 
lecteur actif 


A705 flag si OPEN actif sur lecteur appelé 


A706, A707 mémoire provisoire pour pointeur de pile pour toutes les 
routines logiques 


A708, A72B bloc de contrôle de fichier supplémentaire pour OPENIN 
A709-A728 buffer bloc de contrôle de bloc (FCB) OPENIN 
A708 flag pour OPENIN 


ff= pas d'OPENIN actif 
00= OPENIN sur lecteur À 
01= OPENIN sur lecteur B 


A709 numéro user pour OPENIN 

A7OA-A714 nom de fichier pour OPENIN, 8 caractères nom de fichier, 3 
caractères extension 

A715 &00 première entrée sinon numéro de l'extension 

A716 800 

A717 800 

A718 nombre d'enregistrements de cette extension 

A719-A728 numéros des blocs de cette extension 

A729-A72B nombre d'enregistrements lus Jusqu'ici pour ENTREE 
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A72C-A7UF 


A72D-A7UC 
A72C 


A72D 
A72E-A738 


1739 
A73A 
A73B 
A73C 
A73D-A74C 
A74D-A7 UF 


A750-A799 


A750 


A751-A752 
A753-A754 
A755 

A756-A764 


A765 
4766 
A767 
A768-A769 
A76A-A76B 
A76C 
A76D-A76E 
A76F-A770 
A771-A794 
A795-A797 
A798-A799 


A79A-A7E3 


bloc de contrôle de fichier supplémentaire pour OPENOUT 


buffer bloc de contrôle de bloc (FCB) OPENOUT 

flag pour OPENOUT 

ff= pas d'OPENOUT actif 

00= OPENOUT sur lecteur À 

01= OPENOUT sur lecteur B 

numéro user pour OPENOUT 

nom de fichier pour OPENOUT, 8 caractères nom de fichier, 
3 caractères extension, complété avec des espaces 
800 première entrée sinon numéro de l'extension 
&00 

800 

nombre d'enregistrements de cette extension 
numéros des blocs de cette extension 

nombre d'enregistrements lus jusqu'ici pour SORTIE 


header de fichier OPENIN 


1 = Disk In Char 

2 = Disk In Direct 

vecteur sur début du buffer OPENIN de 2K 

vecteur sur caractère actuel dans le buffer OPENIN 

numéro user du fichier, élément du nom de fichier 

nom de fichier pour le header de fichier, complété avec 
des zéros 

numéro de bloc 

dernier bloc 

type de fichier fichier ENTREE 

longueur de données 

emplacement de données 

premier bloc 

longueur logique 

adresse Entry 

champs user libres pour l'utilisateur 

compteur sur trois octets nombre de caractères lus 

valeur de contrôle sur deux octets formée sur le header 
fichier OPENIN (A755-A797) 


header de fichier OPENOUT 
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A7SA 


A79B-A79C 
A79D-A7%E 
A79F 

A7AO-A7AE 


A7AF 
A7BO 
A7B1 
A7B2-A7B3 
A7BU-A7B5 
A7B6 
A7B/7-A7B8 
A7B9-A7BÀ 
A7BD-A7BE 
A7BF-A7C0 
A7C1-A7DE 
A/DF-A7E1 
A7E2-A7E3 


A7EU-AS8E3 


A874-A88À 


A88B-A88D 


A890-A8A8 


A890, A891 
A892 
A893 
A894 


1 Disk Out Char 

2 = Disk Out Direct 

vecteur sur début du buffer OPENOUT de 2K 

vecteur sur caractère actuel dans le buffer OPENOUT 
numéro user du fichier, élément du nom de fichier 

nom de fichier pour le header de fichier, complété avec 
des zéros 

numéro de bioc 

dernier bloc 

type de fichier fichier SORTIE 

longueur de données 

emplacement de données 

premier bloc 

longueur logique 

adresse Entry 

longueur du bloc de données pour Disk Out Direct 
adresse Entry pour Disk Out Direct 

champs user libres pour l'utilisateur 

compteur sur trois octets nombre de caractères écrits 
valeur de contrôle sur deux octets formée sur le header 
fichier OPENOUT (A79F-A7E1) 


buffer temporaire/buffer d'enregistrement 

Ce buffer est utilisé aussi bien comme buffer 
d'enregistrement que comme buffer pour vérifier et étendre 
le nom de fichier entré, 


buffer pour les vecteurs cassette qui sont à nouveau 


rétablis dans BC77.,, par l'instruction ITAPE 


far address pour les vecteurs cassette détournés. 
Nécessaire pour l'emploi de RST 4, Pointe sur CD30 de la 
ROM 7, 


bloc paramètres de disque supplémentaire lecteur A 


SPT enregistrements par piste (36) 

BSH Block SHift (décalage de bloc) (3) 

BLM Block Mask (masque de bloc) (7) 

EXM EXtend Mask (masque supplémentaire) (0) 
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A895, A896 
A897, A898 


A899, A89A 
A89B, A89C 
A89D, ABSE 
A89F-A8A8 
A89F 

A8A0 

A8A1 

A8A2 

A8A3 

A8AL 

A8A5 

A8A6 

A8A7 

A8A8 
A8A9-A8B8 


A8B9-A8CE 


A8DO-A8E8 


A8E9-A8F8 


A8F9-A9CE 


A910-A91F 


A910-A911 
A912-A913 


DSM nombre de blocs maximal (170) 

DRM nombre maximal d'entrées dans le catalogue -1 
(63) 

ALO, 1 taille catalogue (CO00) codée en binaire, 
correspond à deux biocs 

CKS nombre des entrées à vérifier dans le catalogue 
(0010) 16 entrées 

OFF décalage de piste (2) pistes système occupées 


paramètres FDC 


FSC premier secteur de chaque piste (841) 

PST secteurs physiques par piste (9) 

GPS longueur gap 3 pour lecture/écriture secteur 
(&2A) 

GPT longueur gap 3 pour formatage piste (852) 

FLB octet de remplissage pour formatage piste (8E5) 

BPS octets par secteur (2) correspond à 512 octets 

RPS enregistrements par secteur (4) 


buffer pour piste actuelle 
flag pour chercher piste 0, read/write recalibrate 
flag, si login doit se produire à chaque accès disque 


CSA 16 octets pour les valeurs de contrôle 
ALT 22 octets table d'affectation, affectation blocs 
lecteur À 


bloc paramètres de disque supplémentaire lecteur B 
affectation comme DPB lecteur A 


CSA 16 octets pour les valeurs de contrôle 
ALT 22 octets table d'affectation, affectation blocs 
lecteur B 


header paramètres disque lecteur À 
XLT table de conversion Skew Factor (inutilisée) 


TRACK mémoire BIOS piste actuelle. Attention! Est 
utilisé par AMSDOS comme DIRNUM 
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A914-A915 SECTOR mémoire BIOS pour secteur actuel 


A916-A917 DIRNUM mémoire BIOS pour numéro DIR actuel 

A918, A919 DIRBUF pointeur sur buffer 1/0 de 128 octets (A930) 

A91A, A91B DPB pointeur sur DPB lecteur À (A890) 

A91C, A91D CSV pointeur sur mémoire pour formation valeur de 
contrôle (A8A9) 

A9IE, A91F ALV pointeur sur table d'affectation (A8B9) 

A920-A92F header paramètres disque lecteur B 

A910-A921 XLT table de conversion Skew Factor (inutilisée) 

A922-A923 TRACK mémoire BIOS piste actuelle. Attention! Est 
utilisé par AMSDOS comme DIRNUM 

A924-A925 SECTOR mémoire BIOS pour secteur actuel 

A926-A927 DIRNUM mémoire BIOS pour numéro DIR actuel 

A928, A929 D'IRBUF pointeur sur buffer 1/0 de 128 octets (A930) 

A92A, A92B DPB pointeur sur DPB lecteur B (A8DO) 

A92C, A92D CSV pointeur sur mémoire pour formation valeur de 
contrôle (A8E9) 

A92E, A92F ALV pointeur sur table d'affectation (A8F9) 

A930-A9AF DIRREC buffer de 128 octets pour un enregistrement 


catalogue. Est transféré du secteur DIR à ici 


A9BO-ABAF SECBUF buffer pour le transfert physique de données 
vers et à partir du lecteur de disquette 


Pour ces adresses également, cela vous ‘démange’ certainement d'observer 
l'effet de la manipulation de certaines de ces cases mémoire, Ne vous 
gênez surtout pas, il ne peut bien sûr rien arriver à l'ordinateur, comme 
vous le savez, Toutefois il n’est pas particulièrement recommandé de 
faire vos premiers essais en plaçant dans le lecteur, sans protection 
contre l'écriture, une de vos disquettes préférées, Une fois que les 
données qui figuraient sur une disquette sont détruites, il est trop tard 
pour penser à faire ce fameux backup que vous avez indéfiniment reporté à 
plus tard. 


Si l'on examine précisément cette zone mémoire, on peut nettement dégager 
les limites de différentes sections. Nous avons doté ces sections de noms 
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qui ne sont cependant cértainement pas connus de tous les lecteurs, Nous 
avons tiré ces noms de CP/M car beaucoup de sections de données ont des 
fonctions identiques à celles de sections comparables de CP/M. C'est 
ainsi que les sections Disc Parameter Header et Disc Parameter Block se 
présentent (presque) exactement sous cette forme dans CP/M. Tout 
ordinateur CP/M a des DPBs et des DPHs, 

Les FDC, les File Control Blocks sont également utilisés dans CP/M. 
Toutefois certaines sections ont été étendues sous AMSDOS, Un DPB CP/M 
standard ne comprend que les 15 octets SPT à OFF, les extensions sont 
particulières à l'AMSDOS et ne peuvent être transférées sur d'autres 
ordinateurs CP/M, ni même sur le CP/M du CPC, Les header de fichier pour 
OPENOUT et OPENIN sont également particuliers à l’AMSDOS, 
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4.2 LE LISTING DE LA ROM DE L'AMSDOS 


Vous trouverez sur les pages suivantes le listing de la ROM de l'AMSDOS, 
La ROM de 1l'AMSDOS contient toutes les routines nécessaires à 
l'exploitation du lecteur de disquette. Mais elle ne contient pas que 
cela, Comme nous l'avons déjà indiqué, 1'AMSDOS n'occupe même pas la 
moitié des 16K disponibles dans 1a ROM. 8K entiers sont occupés par une 
partie du LOGO qui est fourni avec le lecteur de disquette. Cela divise 
donc par deux la zone disponible, 

Cette zone LOGO n’a pas été imprimée dans le listing suivant, pour 
plusieurs raisons, D'une part c'est un livre sur le lecteur de disquette 
et non un livre sur LOGO que vous avez entre les mains. D'autre part la 
partie de LOGO figurant dans cette ROM n'est qu'une petite partie de 
l'interpréteur LOGO complet. Vous trouverez 32K supplémentaires de ce 
langage de programmation par ailleurs très intéressant sur la disquette 
système du CPC. Si donc nous imprimions et commentions la partie de LOGO 
située dans la ROM, personne ne pourrait en tirer quoi que ce soit car il 
s'agit d’une partie trop restreinte de l'interpréteur complet. 


Mais même les 8K restants ne sont pas complètement utilisés par AMSDOS, 
1024 octets de la zone de 8DCO0 à &DFFF ne sont absolument pas utilisés. 
Cette zone à été peut-être prévue pour des extensions ultérieures de 
l'AMSDOS, Nous n'avons plus maintenant que 7K qui ne sont cependant 
toujours pas entièrement à la disposition de l'’AMSDOS. Des sections de 
CP/M sont également intégrées dans cette zone. CP/M et AMSDOS utilisent 
ainsi ensemble de nombreuses routines de la ROM alors que d'autres sont 
par contre exclusivement utilisées par CP/M ou par AMSDOS,. C'est ainsi 
que sont intégrés dans 1a ROM deux programmes complets de commande pour 
deux interfaces sérielles qui peuvent être affectés sous CP/M de 
différentes façons aux différents périphériques à travers l'octet 1/0, 


Un examen du listing révèle qu'une fois retirées toutes les sections de 
mémoire qui sont exclusivement utilisées par CP/M, il ne reste qu'à peine 
6K pour l'AMSDOS. Mais voyez plutôt par vous-même comment ces 6K sont 
construits. 


#2 LE 


vessrasemensess Préfixe DOUT ROM CPH 


C000 01 DEFB 01H :ROM Type, Background ROM 
C001 00 DEFB 00H :ROM Mark Number 

C002 05 DEFB O5H ROM Version Number 

C003 00 DEFB 00H :ROM Modification Level 
FRREREEEEE Agresse de la table d'instructions 

CO04 72C0 DEFW 0C072H 

RROOORREEEEEE DIOC Jump instructions AMSDOS 

C006 C3BCCI JP 0C1BCH 3CPM ROM 

C009 C3B2C1 JP 0C1B2H 3CPM 

CO0C C3D1CC JP OCCD1H 3DISC 

CO0F C3D5CC JP OCCDS5H 3DISCIN 

C012 C3E4CC JP OCCEUH 3 DISCOUT 

C015 C3FDCC JP OCCFDH : TAPE 

C018 C301CD JP OCD0O1H 3 TAPEIN 

C01B C318CD JP OCD18H 3 TAPEOUT 

CO1E C3DACD JP OCDDAH ;A: 

C021 C3DDCD JP OCDDDH :B: 

CO24 C3E4CD JP OCDE4H 3DRIVE 

C027 C3FECD JP OCDFEH 3 USER 

CO2A C32ED4 JP OD42EH :DIR 

CO2D C38AD4 JP OD48AH 3ERA 

C030 C3C4D4 JP OD4C4H 3REN 

HOERREEEEEX DlOC Jump instructions disc controller 

C033 C372CA JP OCA72H :°81 enable/disable messages d'erreur 
C036 C3ODC6 JP OC60DH :°82 indiquer données disque 
C039 C381C5 JP OC581H :°83 déterminer format disque 
CO3C C366C6 JP 0C666H :°84 lire secteur 

CO3F C3UEC6 JP OCGUEH :°85 écrire secteur 

CO42 C352C6 JP 0C652H :°86 formater piste 

COU5 C363C7 JP 0C763H :°87 chercher piste 

C048 C330C6 JP 0C630H :°88 déterminer état disque 
COUB C303C6 JP 0C603H :°89 fixer nombre tentatives lecture 


ROREEEREXEEE BlOC Jump entrées CP/M 
COUE C368C1 JP 0C168H 
C051 C3DBCO JP OCODBH 
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HHRREEEERAEEE BIOC jump routines 1/0 sérielles pour CP/M 


CO54 C389C3 JP 0C389H sinitialisation complète SI0O & 8253 
CO57 C301C3 JP OC301H 

COSA C3DBC3 JP OC3DBH :Canal A buffer RX plein? 

COSD C3F7C3 JP OC3F7H :Canal À retirer un caractère 

C060 C335C4 JP OC435H :Canal A buffer TX vide? 

CO63 C345C4 JP OC44GSH :Canal À envoyer un caractère 

CO66 C3E3C3 JP OC3E3H :Canal B buffer RX plein? 

CO069 C3FFC3 JP OC3FFH :Canal B retirer un caractère 

CO6C C33AC4 JP OC43AH :Canal B buffer TX vide? 

CO6F C34BC4 JP OC44BH :Canal B envoyer un caractère 


et * Table des instructions DOS 
CO72 43504D20 DEFM “CPM RO’, ‘M’+80H 
C076 S24FCD 

C079 4350CD DEFM ?CP','M'+80H 

CO7C 444953C3 DEFM ‘DIS’, 'C'+80H 
CO80 44495343 DEFM ‘DISC.I’,'N'+80H 
CO84 2E4QCE 

CO87 44495343 DEFM *DISC.OU’,'T'+80H 
CO8B 2E4F55D4 

CO8F 544150C5 DEFM "TAP','E'+80H 
C093 54415045 DEFM TAPE 1", 'N'+80H 
C097 2E4Q9CE 

CO9A 54415045 DEFM TAPE ,OU', "T'+80H 
COSŒ  2E4FS55D4 


COA2 C1 DEFM ‘A'+80h 

COA3 C2 DEFM "B'+80H 

COA4 44524956 DEFM DRIV','E’+80H 
COA8 C5 


COAS 555345D2 DEFM USE”, "R'+80H 
COAD 44ugp2 DEFM DI','R'+80H 
COBO 455201 DEFM ER, 'A'+80H 
COB3 5245CE DEFM RE", "N'+80H 


EE Instructions Disc Controller 


COB6 81 DEFB O1H + 80H 
COB7 82 DEFB 02H + 80H 
COB8 83 DEFB 03H + 80H 
COB9 84 DEFB OH + 80H 
COBA 85 DEFB O5H + 80H 
COBB 86 DEFB 06H + 80H 


<1:3 = 


COBC 
COBD 
COBE 
COBF 


LÉELÉÉLLESLLSLELLE) 


Coco 
COC3 
COC6 
COC8 
COCB 
COCC 
COCF 
CODO 
CoD1 
COD5 
COD6 
COD9 


87 
88 
89 
00 


2A3900 
223EAD 
3EC3 
3233AD 
AF 
3240AD 
F3 

D9 
ED433CAD 
D9 
21FACO 
181 


DEFB 
DEFB 
DEFB 
DEFB 


07H + 80H 
O8H + 80H 
OH + 80H 
00 :Marque fin de la table 


sauver vecteur d'interruption et adresse de port GA 


LD 
LD 
LD 
LD 
XOR 
LD 
DI 
EXX 
LD 
EXX 
LD 
JR 


HL, (0039H) ;vecteur INT (RST 7) 
(OAD3EH),HL ;ranger dans la Ram 
À, 0C3H :code d'opération JMP 
(OAD33H),A ;pour module CALL 
Â 
(OAD4OH), À 
interdire INT pour utilisation 
:du jeu de registres alternatif 
(CAD3CH),BC ; sauver adresse port GA et config ROM 
:restaurer jeu de registres altern. 
HL, OCOFAH 
OCOF 5H 


MERE MEME DE DD DE DE DE DE DE DE DE DD DD HE DEEE DEEE DEEE HE DE DE DEN DEEE DEEE DEEE DD DE DE DE DE DE DE DE DE 


CODB 
CODE 
CODF 
CO0EO 
COE1 
COE2 
COE3 
COE4 
COES 
COE6 
COE8 
COE9 
COEA 
COEB 


COEF 
COFO 
COF1 
COF2 
COFS 
COF8 
COFg 


2140AD 
BE 

C8 

C5 

46 

77 

B7 

78 

C1 
28E7 
F3 

08 

D9 
ED4B3CAD 


B7 
08 
D9 
213201 
2234AD 
FB 
cg 


LD 
CP 
RET 
PUSH 
LD 
LD 
OR 
LD 
POP 
JR 
DI 
EX 
EXX 
LD 


OR 
EX 
EXX 
LD 
LD 
EI 
RET 


HL, OADA4OH 
CHL) 
Z 
BC 
B, (HL) 
CHL), A 
À 
A,B 
BC 
Z, OCOCFH 
nécessaire pour utiliser ancien jeu 
AF,AF' :de registres 


BC, (OAD3CH) ;rechercher adresse port GA et ROM- 


Select 
À annuler Carry 
AF,AF' 
HL,0C132H 


(OAD34H),HL ; Adresse du saut en AD33 
autoriser à nouveau interruptions 
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MENU DE EDEN DEN DEN DE module *CALL AD33', 


COFA 
COFB 
COFC 
COFD 
C100 
C101 
C105 
C108 
C109 
C10A 
C10B 
C10D 
c111 
C112 


c115 
C116 
C117 
c118 
C11C 
C11F 
C122 
C124 
C125 
C126 
C127 
C12A 
C12B 
C12C 
C130 
C131 


LELSLLLSESLLLE SE) 


C132 
C133 
C134 
C135 
C136 
C13A 
C13D 


F3 

08 

D9 
2238AD 
ET 
ED/336AD 
3100C0 
DS 

C5 

F5 

FDES 
ED4B3CAD 
B7 
CD4FC1 


F3 

08 

D9 
ED433CAD 
216301 
223900 
FDE1 

F1 

C1 

D1 
2A38AD 
08 

D9 
ED/B36AD 
FB 

C9 


F3 

08 

D9 

ET 
ED/336AD 
3100C0 
CD4FC1 


DI 
EX 
EXX 
LD 
POP 
LD 
LD 
PUSH 
PUSH 
PUSH 
PUSH 
LD 
OR 
CALL 


DI 
EX 
EXX 
LD 
LD 
LD 
POP 
POP 
POP 
POP 
LD 
EX 
EXX 
LD 
EI 
RET 


AF,AF° 


(OAD38H),HL 
HL 
(OAD36H), SP 
SP, OCOOOH 
DE 

BC 

AF 

IY 

BC, (OAD3CH) 
À 

OC14FH 


AF,AF° 


(OAD3CH), BC 
HL,0C163H 
(00394), HL 
IY 

AF 

BC 

DE 

HL, (OAD38H) 
AF,AF' 


SP, (OAD36H) 


module 'CALL AD33', 


DI 
EX 
EXX 
POP 
LD 
LD 
CALL 


AF,AF" 


HL 
(OAD36H), SP 
SP, OCO00H 
OC14FH 


conserver ancien jeu de registres 
s:interdire interruptions 

:pour travailler avec jeu de 
sregistres alternatif 

Sauver HL 

adresse de retour dans HL 

;Sauver pointeur de pile 

:et initialiser 

tous registres sur pile initialisée 


: (adresse de port Gate Array) 


;chercher adresse après ‘’CALL AD33' 
set CALLer 

:pourrait être à nouveau autorisé 
:échanger registres 


a été éventuellement modifié 
détourner à nouveau vecteur INT 


srestaurer registres 


shl n'avait pas été PUSHÉ 


scommuter sur Jeu reg. standard 
restaurer ancien pointeur de pile 


sroutine voulue exécutée 


ancien Jeu reg. n’est pas sauvé 
interdire INT 
:jeu de registres alternatif 


sretirer adresse de retour de la pile 
:sauver pointeur de pile 
sinitialiser pile 

:rechercher adresse après CALL AD33 
set JPer 


#15 


C140 
c141 
C142 
C145 
c148 
C149 
C14D 
CI4E 


LLLLLLLZSLSLLLS LS) 


C14F 
C153 
C157 
C15B 
C15C 
C15D 
C15E 
C15F 
C160 
C16i 
C162 


LELLE SELS LLLLLS) 


C163 
C166 


CLLLLLSELL SL LE EE) 


C168 
C16B 
C16C 
C16D 
C16E 
C16F 
C170 
C171 
c174 


LÉLEE SSL LLLLS SE) 


C177 
C17A 
C17D 
C17E 


F3 

D9 
216301 
223900 
DS 
ED/B36AD 
FB 

C9 


EDSB3EAD 
ED533900 
FD2148AC 
5E 
23 
56 
D5 
08 
Dg 
FB 
C9 


CD33AD 
3800 


223AAD 
ET 
ES 
23 
23 
E3 
ES 
2A3AAD 
C333AD 


216301 
223900 
EB 
ES 


DI 
EXX 
LD 
LD 
EXX 
LD 
EI 
RET 


HL, 0C163H 
(0039H),HL 


SP, (OAD36H) 


;spourrait être à nouveau autorisé 
:commuter jeu de registres 
détourner à nouveau vecteur INT 


:commuter Jeu de registres 
srestaurer pointeur de pile 


routine voulue exécutée 


JP à l'adresse après ‘’CALL AD33' 


LD 
LD 
LD 
LD 
INC 
LD 
PUSH 
EX 
EXX 
EI 
RET 


CALL 


LD 
POP 
PUSH 
INC 
INC 
EX 
PUSH 
LD 
JP 


DE, (OAD3EH) 
(0039H), DE 
IY,OACH8H 
E, CHL) 

HL 

D, (HL) 

DE 

AF,AF' 


OAD33H 


COAD3AH),HL 
fl 

HL 

HL 

HL 

(SP), HL 

HU 

HL, (OAD3AH) 
OAD33H 


: (System Interrupt Vector) 
détourner vecteur INT 

>:adresse de base pour Ram disque 
sretirer octets après CALL AD33 
;de DE 


:Sur la pile 


:et appeler à travers RET 


:saut au vecteur INT 


ranger h1 
adresse RET dans hl 


augmenter de 2, donc après 
;indication de l'adresse 
;échanger avec adresse RET 
;valeur originelle sur pile 
:restaurer hl 


entrer vecteur INT système, JP (DE) 


LD 
LD 
EX 
JP 


HL,0C163H 
(0039H),HL 
DE,HL 

CHL) 
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HHERERREREEMEEE D]OC de Jump BIOS, sous CP/M en Ram à partir de OADOOH 


C17F 
C182 
C185 
C188 
C18B 
C18E 
C191 
c194 
C197 
C19A 
C19D 
C1A0 
C1A3 
C1A6 
C1A9 
CIAC 
CTAF 


LELLLLELLSLESS ES) 


C1B2 
CiB5 
C1B6 
C1B9 


LELLLELLRELS LL SE) 


C1BC 
CIBE 
C1C1 
C1C2 
C1C4 
C1C6 
C1C7 
C1CA 
C1CB 
C1CC 
C1CD 
C1CE 
C1D0 
C1D3 
C1D6 
C1D7 


C3B201 
C3BEC2 
C3E1C2 
C3C3C2 
C3C8c2 
C3D2C2 
C3D7C2 
C3DCC2 
C3E9C2 
C3F2C2 
C324C5 
C329C5 
C3TACS 
C3F7C2 
C3FCC2 
C3CDC2 
C3SACS 


CD12B9 
uF 

21DCC1 
C316BD 


3806 
CD12B9 
B7 
2818 
FDES 
D5 
1100FB 
19 

ES 

23 

ES 
FDE1 
CDDDCS 
CDAOCC 
E1 

D1 


JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 


OC1B2H 
OC2BEH 
OC2E 1H 
OC2C3H 
OC2C8h 
OC2D2H 
OC2D7H 
OC2DCH 
OC2E9H 
OC2F2H 
OCS24H 
0C529H 
OC51AH 
OC2F7H 
OC2FCH 
OC2CDH 
OCS5AH 


CPM-COLD BOOT 


CALL 
LD 
LD 
JP 


CPM ROM 
JR 
CALL 
OR 
JR 
PUSH 
PUSH 
LD 
ADD 
PUSH 
INC 
PUSH 
POP 
CALL 
CALL 
POP 
POP 


0B912H 
C,A 

HL, 0C1DCH 
OBD16H 


C,0C1C4H 
0B912H 

À 
Z,0C1DCH 
IV 

DE 

DE, OFBOCH 
HL, DE 

HL 

HL 

HL 

IY 
OCSDDH 
OCCAOH 
HL 

DE 


COLD BOOT 

WARM BOOT 
CONSOLE STATUS 
CONSOLE INPUT 
CONSOLE OUTPUT 
PRINTER OUTPUT 
PUNCHER 

READER 

TRACK 0 

SELECT DRIVE 
SELECT TRACK 
SELECT SECTOR 
INSTALL BUFFER 
READ SECTOR 
WRITE SECTOR 
PRINTER STATUS 
TRADUIRE NUMERO SECTEUR 


3KL CURR SELECTION 
:ROM Selection 
:Entry Point Adresse 
3MC START PROGRAM 


3KL CURR SELECTION 

stester si adresse ROM Select = 0 

3=> LK 1 sur Contr.Board ouvert, CP/M 
:Adresse himem 

Adresse ]lomem 

shl = himem 

:diminué de O400h 

;:ranger nouvelle himem 


3iy = himem+] 

sinitialiser FDC et Event 

; détourner vecteurs cassette 
transmettre nouvelles valeurs pour 
:lomem et himem à KL START PROGRAM 
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C1D8 
C1DA 
C1DB 


LLLL LS LL LE LL SL) 


C1DC 
C1DF 
C1E3 
C1E6 
C1E9 
CIEC 
CIEF 
C1FO 
C1F2 
C1F5 
C1F6 
C1F9 


C1FC 
CIFF 
€202 
C204 
C207 
C20A 
C20C 
C20F 
C212 
C215 
C218 
C21A 
C21B 
C21E 
C221 


LELLLELSLLLLLZ SL) 


C224 
C226 
C229 


LESSSSSELL LL ILE) 


C22B 
C22E 


FDE1 
37 
C9 


3100C0 
FD2148AC 
1133AD 
014500 
CDAFCA 
2141AD 
35 
3E81 
320300 
AF 
320400 
2133C0 


1180BE 
013F00 
EDBO 
CDCOCO 
CDDDCS 
0E41 
110000 
210001 
CD66C6 
DCACC2 
300A 
EB 
017FC1 
3133AD 
C37701 


3EO0F 
CDB8CA 
18DF 


CD6FC8 
CDBOC8 


POP IV 
SCF s:marque initialisation OK 
RET 


ENTRY démarrage à froid CP/M 


LD SP,0C000ŒH ;initialiser pile 

LD IY,0AC48H 

LD DE, 0OAD33H 

LD BC, O0ASH 

CALL OCAAFH zefface (de) à (de+bc) 

LD HL,0AD41H 

DEC CHL) 

LD A, 81H :fixation standard octet 10 

LD (0003H), A 

XOR Â :Drive et User 

LD (0004H), A 

LD HL,0C033H ;table Jump instructions Controller 
881-889 

LD DE,OBE80H  ;copier dans BE80 

LD BC, 003FH ;en tout 3fh octets 

LDIR transmettre 

CALL OCOCOH ;sauver vecteur INT & adresse port GA 

CALL OC5DDH sinitialiser FDC et Event 

LD C. 41H numéro de secteur 

LD DE, 0000H spiste et lecteur 

LD HL,0100H :adresse buffer 

CALL OC666H :lire secteur 

CALL C,0C2ACH 3=> secteur lu vide? 

JR NC,OC224H ;erreur apparue 

EX DE,HL 

LD BC, 0C17FH 

LD SP,0AD33H 

JP 0C177H vecteur INT sur C163, JP (DE) 


erreur lors du chargement du secteur BOOT 


LD A, OFH :Msg. 15 ‘Failed to load Boot sector’ 
CALL OCAB8H :demander ‘’CHAN., IGN. or RETRY' 
JR OC20AH 


charger CP/M CCP et BDOS à partir disque, Warm Boot 
CALL OC86FH 
CALL OC8BOH 


= ]T "8 


C231 
C234 
C237 
C238 
C23B 
C23C 
C23F 
C241 
C242 
C247 
C244 
C245 
C246 
C249 
C24A 
C2UB 
C24C 
C2LF 
C251 
C252 
C255 
C258 
C25B 
C25D 
C25E 
C261 
C262 
C263 
C266 
C267 
C269 
C26C 
C26F 
C272 
C275 
C276 
C279 
C27C 
C27F 
C281 
C284 
C285 


014801 
110000 
ES 
CD9gc2 
ET 
DCACC2 
3051 
ES 

23 

SE 

23 

56 
21AUFC 
19 

EB 

ET 
010002 
EDBO 
EB 
O1490A 
110000 
CD99c2 
3035 
EB 
2100E À 
19 

ES 
2106F2 
19 
3EC3 
320500 
220600 
320000 
210300 
19 
220100 
217FC1 
013300 
EDBO 
210400 
7E 
EG6OF 


LD 
LD 
PUSH 
CALL 
POP 
CALL 
JR 
PUSH 
INC 
LD 
INC 
LD 
LD 
ADD 
EX 
POP 
LD 
LDIR 
EX 
LD 
LD 
CALL 
JR 
EX 
LD 
ADD 
PUSH 
LD 
ADD 
LD 
LD 
LD 
LD 
LD 
ADD 
LD 
LD 
LD 
LDIR 
LD 
LD 
AND 


BC, 01484 :b=compteur secteur, c=numéro secteur 
DE, 00OOH spiste et lecteur 


HL :ranger adresse buffer 
0C299H :lire nombre secteurs voulu 
HL : début buffer à nouveau dans hl 


C,OC2ACH teste, si secteur lu est vide 
NC,0C292H  ;erreur apparue 
HL 

HE 

E, CHL) 

HL 

D, CHL) 

HL, OFCAUH 

HL, DE 

DE,HL 

HE 

BC, 0200H ;:longueur buffer 


DE, HL adresse buffer 
BC, OAUSH ;:b=compteur secteur, c=numéro secteur 
DE , 0000H spiste et lecteur 
0C299H :lire nombre secteurs voulu 
NC,0C29H  ;erreur apparue 
DE, HL 
HL, OEAOCH 
HL, DE 
HL 
HL, 0F206H 
HL, DE 
A,0C3H code d'opération pour JP 
(O005H),A 3; 
(0006H),HL :Entry BDOS, 8F00 
(O000H),A ;Code JP 
HL, 0003H 
HL, DE 
(0001H),HL ;Entry BIOS, ADOO 
HL,0C17FH  ; Table des vecteurs CP/M 
BC,0033H :51 octets de long 
:dans ADO0 
HL, OOO4H sUser et lecteur 
À, CHL) 
OFH sisoler lecteur 
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C287 FEO2 CP 02H :lecteur O0 ou 1? 


C289 3802 JR C,0C28DH zest O0 ou 1 => 

C28B 3600 LD CHL),00H :sinon mettre sur 0 

C28D 4E LD C, CHL) 

C28E D1 POP DE 

C28F C377C1 JP 0C177H ;:vecteur INT sur C163, JP(de) 


ROOREEEXEXEÉ OTTEUT apparue lors du chargement de CP/M 


C292 3ECE LD À, OEH :Msg. 14 ‘Failed to load CPM' 
C294 CDB8CA CALL OCAB8H :demander "CHAN., IGN. or RETRY' 
C297 1892 JR OC22BH :WARM BOOT 


** charge continuellement secteurs, nombre en b, secteur en c, piste en d 


C299 CD66C6 CALL 0C666H ;:Charger secteur 

C29C DO RET NC erreur apparue 

C29D 79 LD A, C numéro secteur dans accu 

C2 OC INC C prochain secteur 

C29F FE49 CP 49H ;:dernier secteur était Nr 49h? 
C2A1 3803 JR C,OC2A6H :=> n'était pas 49h 

C2A3 0E41 LD C,41H :Sector 41h 

C2A5 14 INC D :Sur piste suivante 

C2A6 24 INC H élever pointeur buffer de 2 pages 
C2A7 24 INC H 

C2A8 10EF DJNZ 0C299H ;:lu tous les secteurs? 

C2AA 37 SCF :marque que tout est OK 

C2AB C9 RET 


RROOERAEEREX toste Si secteur lu est vide 


C2AC ES PUSH HL adresse buffer 

C2AD 010200 LD BC, 0002H 3512 octets 

C2B0 7E LD À, CHL) :premier caract. de buffer dans accu 
C2B1 BE CP CHL) ; (pointeur buffer) 

C2B2 23 INC HL ;augmenter pointeur 

C2B3 37 SCF :marque OK 

C2B4 2006 JR NZ,OC2BCH ;si différent, alors => 
C2B6 10F9 DJNZ OC2B1H ;:boucle sur 256 octets 
C2B8 OD DEC C :fois deux = un secteur 
C2B9 20F6 JR NZ, OC2B1H 

C2BB B7 OR A annuler Carry 

C2BC El POP HL répéter pointeur buffer 
C2BD C9 RET 
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CELELLELSRELSL SE) 


C2BE CD33AD 
C2C1 2BC2 


LÉLELLILL ISLE LE) 


C2C3 2186C4 
C2C6 181C 


LELLLLLLSS LES EE) 


C2C8 218FC4 
C2CB 1817 


LÉELLELLSSS SLR LE) 


C2CD 2198C4 
C2D0 1812 


LÉISLSLL SSL LE LS SL) 


C2D2 21A1C4 
C2D5 180D 


LÉRSLSLÉLÉESLSEELE, 


C2D7 21AAC4 
C2DA 1808 


LELLLEL LEZ LL ELLE) 


C2DC 21BCC4 
C2DF 1803 


LELLELL ELLES LL ES) 


C2E1 21/7DC4 
C2E4 CD33AD 
C2E7 6AC4 


LELLLESS SSL SSL E) 


C2E9 CD68C1 
C2EC 1FC5 
C2EE 2189BE 
C2F1 C9 


LÉELLLISLSLLLSSE EL) 


C2F2 CD33AD 
C2F5 FOC4 


WARM BOOT 
CALL OAD33H 
DEFW OC22BH 


CONSOLE INPUT 
LD HL,0C486H 
JR OC2E4H 


CONSOLE OUTPUT 
LD HL,O0C4H8FH 
JR OC2E4H 


PRINTER STATUS 
LD HL, 0C498H 
JR OC2E4H 


PRINTER OUTPUT 


LD HL, OCHATH 
JR OC2E4H 
PUNCHER 

LD HL, OCHAAH 
JR OC2E4H 
READER 

LD HL, OC4BCH 
JR OC2EuH 


CONSOLE STATUS 
LD HL, OC47DH 
CALL OAD33H 


CHERCHER PISTE 0 


CALL 0C168H 


LD HL, OBE89H 
RET 


SELECT DRIVE 
CALL CAD33H 


3'JP C22B° 


3(hl)=> Affectation Console In 


;(hl)=> Affectation Console Out 


:(hl)=> Affect, List Device Status 


;s(hl)=> Affect, List Device Output 


;(hl)=> Affectation Puncher 


3(hl)=> Affectation Reader 


:(hl)=> Affectation Console Status 
3'JP C46A'; Affect. par octet 1/0 


3'JP C51F” 


;'JP C4FO' 
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LESLLELLL ELLE LE] READ SECTOR 


C2F7 
C2FA 


LELLLLELLE LL SL LS) 


C2FC 
C2FF 


LELLLLELLLLLEZ LE) 


C301 
C304 
C307 
C30A 
C30C 
C30F 
C312 


LELLELLS EL LLEL ST) 


C313 
C316 
C317 
C318 
C31A 
C31B 
C31E 
C321 
C324 
C325 


CD33AD 
HCCS 


CD33AD 
2EC5 


32C5AD 
018100 
1142AD 
EDBO 
2143AD 
22C3AD 
C9 


2141AD 
7E 

B7 
2804 
35 
CC81BB 
CDO9BB 
DCOCBB 
9F 

cg 


CALL 


OAD33H 3 "JP C54C’ 


WRITE SECTOR 


CALL 


LD 
LD 
LD 
LDIR 
LD 
LD 
RET 


OAD33H 3" JP C52E' 


(OADC5H), À 
BC, 0081H 
DE, OAD42H 


HL, OAD43H 
COADC3H),HL 


tester état clavier, caractère disponible? 


LD 
LD 
OR 
JR 
DEC 
CALL 
CALL 
CALL 
SBC 
RET 


HL,OAD41H 
À, CHL) 
À 
Z,0C31EH 
CHL) 
Z,0BB81H 3 TXT CURSOR ON 
OBBO9H ;:KM READ CHAR, 1 caract. du clavier 
C,OBBOCH :si car, disponible, KM RETURN CHAR 
A, À :0ffh=> caractère disponible, 
3:00 pas de caractère 
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AE ## Console Input, retirer un caractère du clavier 


C326 2142AD LD HL,0AD42H  ;Keyboard Modus Flag 
C329 7E LD À, CHL) 

C32A B7 OR À stester flag 

C32B 281B JR Z,0C348H ;:=> Keyboard Mode ‘INPUT’ 
C32D CDO9BB CALL OBBO9H :Kevboard Mode ‘’INKEY’, KM READ CHAR 
C330 300C JR NC,OC33EH ;=> reçu aucun caractère 
C332 21CSAD LD HL, OADCSH 

C335 34 INC CHL) 

C336 35 DEC CHL) 

C337 CO RET NZ 

C338 2142AD LD HL, OAD42H 

C33B 3600 LD CHL), 00H 

C33D C9 RET 

LELLLLLLLSILLLLS,: 

C33E 35 DEC CHL) :Keyboard Mode sur ‘INPUT’ 
C33F 2AC3AD LD HL, (OADC3H) 

C342 7E LD À, CHL) 

C343 23 INC H 

L 

C344 22C3AD LD (OADC3H),HL 

C347 C9 RET 


RER MEEEEX Console Input, attendre un caractère du clavier 


C348 2141AD LD HL,OAD41H 

C34B 7E LD A, CHL) 

C34C B7 OR À 

C34D C481BB CALL NZ,O0BB81H  ;TXT CURSOR ON 

C350 3600 LD CHL), 00H 

C352 C306BB JP OBBO6H 3KM WAIT CHAR, attendre caractère 


RREREEEMEEEES High Speed Reader comme Reader, non étendu 
C355 3E1A LD A, 1AH :E0F 
C357 C9 RET 


ROREEEEEE Status CRT comme Printer, High Speed Reader comme Reader 
C358 3EFF LD À, OFFH 


ee High Speed Puncher comme Puncher Device 
C35A C9 RET 
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REA EEEEEE CRT-Device, sortir un caractère sur l'écran 


C35B 
C35E 
C35F 
C360 
C363 
C365 
C366 
C369 
C36B 
C36C 
C36F 
C372 
C373 
C376 


LELLLLLLLLLLSS EL] 


C379 
C37C 
C37D 
C37E 


LÉLÉLLLLLLLLE ES) 


C37F 
C380 
C383 
C384 
C387 


LELLS LL LL ELLES S) 


C389 
C38A 
C38D 
C390 
C393 
C394 
C395 
C396 
C399 
C39B 
C39D 
C3A0 


2141AD 
7E 

B7 
CC84BB 
36FF 
79 
CD5SABB 
FE20 
DO 
CD78BB 
CD87BB 
D8 
CD8ABB 
C38DBB 


CD2EBD 
3F 
SF 
cg 


79 
CD2BBD 
D8 
CDD3C4 
18F6 


F3 
O1DDFA 
11C6AD 
CDBDC3 
03 

03 

13 
CDBDC3 
3E36 
1EDC 
CDAEC3 
3E76 


LD 
LD 

OR 
CALL 
LD 
LD 
CALL 
CP 
RET 
CALL 
CALL 
RET 
CALL 
JP 


HL, OAD4TH 
A, CHL) 

A 

Z, OBB84H 3TXT CURSOR OFF 
CHL),0FFH 

A,C :caractère à sortir dans l'accu 
OBBSAH 3 TXT OUTPUT 

20H caractère espace 

NC :=> pas code de contrôle 
OBB7 8H 3TXT GET CURSOR 

OBB87H 3TXT VALIDATE 

C 

OBB8AH 3 TXT PLACE CURSOR 

OBB8DH 3 TXT REMOVE CURSOR 


Line Printer Status, teste, si Centronics Busy 


CALL 
CCF 
SBC 
RET 


OBD2EH 3:MC BUSY PRINTER, Carry si Busy 
;:Carry, si pas Busy 
A, À :0ffh => pas Busy, 00 si pas Busy 


Line Printer Output, un caractère vers l'imprimante 


LD 
CALL 
RET 
CALL 
JR 


A, C :caractère dans accu 

OBD2BH 3MC PRINT CHAR, sortir 

C envoi caractère réussi 

OC4D3H :Printer Busy, tester Keyboard 
OC37FH nouvelle tentative 


initialiser 1/0 sériel (hl)=> table paramètres 


DI 
LD 
LD 
CALL 
INC 
INC 
INC 
CALL 
LD 
LD 
CALL 
LD 


BC, OFADDH  ;SI0 Canal A/registre de contrôle 
DE,CADC6EH  ;mémoire pour registre WR 5, Canal À 


OC3BDH :Reset canal, Init, Can. À 

BC 

BC :SI0 Canal B/registre de contrôle 

DE mémoire pour registre WR 5, Canal B 
OC3BDH ;: Channel Reset, Init. Can, B 

À, 36H :Mode Timer O du 8253 

E,ODCH :0octet faible pour adr. port timer 0 
OC3AEH 3fixer baudrate d'envoi canal À 

À, 76H ;:Mode Timer 1 du 8253 
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C3A2 
C3A3 
C3A6 
C3A8 
C3A9 
C3AC 
C3AD 


1C 
CDAEC3 
3EB6 
1C 
CDAEC3 
FB 

cg 


INC 
CALL 
LD 
INC 
CALL 
EI 
RET 


E 
OC3AEH 
À, OB6H 
E 
OC3AEH 


:octet faible pour adr, port Timer 1 
:fixer baud rate réception canal À 
:Mode Timer 2 du 8253 

soctet faible pour adr, port Timer 2 
:Baudrate réc, et envoi canal B 


RRREEEEEEX init, Baudrate-Generator 8253, (h1) => Lo-Hi valeurs timer 


C3AE 
C3B1 
C3B3 
C3B4 
C3B5 
C3B6 
C3B8 
C3B9 
C3BA 
C3BC 


LRLSLELE LS LLZS) 


C3BD 
C3BF 
C3C1 
C3C3 
C3C5 
C3C6 
C3C7 
C3C9 
C3CB 
C3CD 
C3CE 
C3CF 
C3DO 
C3D2 
C3D4 
C3D6 
C3D7 
C3D8 
C3DA 


O1DFFB 
ED79 
4B 

7E 

23 
ED79 
7E 

23 
ED79 
cg 


3€18 
ED79 
3E04 
ED79 
7E 
23 
ED79 
3E05 
ED79 
7E 
12 
25 
ED79 
3E03 
ED79 
7E 
23 
ED79 
C9 


LD 
OUT 
LD 
LD 
INC 
OUT 
LD 
INC 
OUT 
RET 


BC, OFBDFH 
(C),A 

CE 

À, CHL) 

HL 

(C),A 

À, CHL) 

HL 

(C),A 


zadr, port mot contrôle 8253 

:Sortir mot de contrôle au 8253 
soctet faible adr.port du timer voulu 
zoctet faible valeur timer 


;charger dans timer 
zoctet fort valeur timer 


;charger dans timer 


initialiser canal SIO dans (BC) 


LD 
OUT 
LD 
OUT 
LD 
INC 
OUT 
LD 
OUT 
LD 
LD 
INC 
OUT 
LD 
OUT 
LD 
INC 
OUT 
RET 


À, 18H 
(C),A 
À, OUR 
(C),A 
À, CHL) 
HL 
(C),A 
A, 05H 
(C),A 
À, CHL) 
(DE), A 
HE 
(C),A 
À, 05H 
(C),A 
À, CHL) 
HL 
(C), A 


: code d'opération restaurer canal 
;sortir sur SIC 
sélectionner Write-Register 4 


:entrée de table pour 

3Parity, Stop-Bits et Clock-Mode 
:sortir sur SIO 

:Sélectionner Write-Register 5 


:ranger entrée table pour hand shake 
zet Bits/Char dans (de) (ADC6/ADC7) 


set sortir sur SIO, envoi param. (TX) 
Sélectionner Write-Register 3 


:valeur table pour Handshake et 
3Bits/Char. 
:Sortir sur SIO, param, récept. RX 


ROORREEEEEEEXS Cana] À buffer RX plein? 
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C3DB 
C3DE 
C3E1 


LELELL LISEZ LLL LS] 


C3E3 
C3E6 
C3E9 
C3EB 
C3EC 
C3ED 
C3EE 
C3F1 
C3F3 
C3F4 
C3F5 


LELSLEELL ESS ETS) 


C3F7 
C3FA 
C3FD 


LR ESS EL LELLEZZ)] 


C3FF 
c402 
C405 
C407 
C408 
C4OA 
C4OD 
C410 
cu12 
cuit 
cH16 
c417 
cH19 
cc 
C41D 
CHF 


OTDDFA 
21C6AD 
1806 


O1DFFA 
21C7AD 
ED78 
OF 

SF 

D8 
CD24C4 
ED78 
OF 

9F 
1829 


O1DDFA 
21C6AD 
1806 


O1DFFA 
21C7AD 
ED78 
OF 
3812 
CD24C4 
CDC5C4 
FETA 
280€ 
ED78 
OF 
30F4 
CD20C4 
OB 
ED78 
C9 


LD 
LD 
JR 


Canal B 
LD 
LD 
IN 
RRCA 
SBC 
RET 
CALL 
IN 
RRCA 
SBC 
JR 


SIO canal A retirer 


LD 
LD 
JR 


SI0 canal B retirer 


LD 
LD 
IN 
RRCA 
JR 
CALL 
CALL 
CP 
JR 
IN 
RRCA 
JR 
CALL 
DEC 
IN 
RET 


BC, OFADDH 
HL, OADC6H 
OC3E9H 


:SI0 Canal À, registre de contrôle 
:l)=> contenu Write-Reg, 5,Can. À 


buffer RX plein? 


BC, OFADFH 
HL, OADC7H 
A, (C) 


AA 

C 
OC424H 
À, (C) 


A, À 
OC420H 


BC, OFADDH 
HL, OADC6H 
OC4OSH 


BC, OFADFH 
HL, OADC7H 
A, (C) 


C,O0C41CH 
OC424H 
OC4CSH 
1AH 
Z,0C420H 
À, (C) 


NC, OC4ODH 
OC420H 

BC 

A, (C) 


:SI0 Canal B, registre de contrôle 
:(hl1)=> Write-Reg, 5, Can. B 

:lire Read-Reg. O du canal voulu 
:Bit O0, caractère RX prêt? 


=> Un caractère présent 
fixer bit DTR 

:lire Read-Reg, 0 

:Bit 0, caractère RX prêt? 


annuler bit DTR 


un caractère 
:SI0 canal A, registre de contrôle 
:(h1)=> contenu Write-Reg. 5, Can. À 


un caractère 

:SI0 canal B, registre de contrôle 
:(h1)=> Write-Reg. 5, Can. B 

:lire Read-Reg. 0 

caractère RX disponible? 

=> recevoir un caractère 

:fixer bit DTR 

interroger clavier 

zentré Control Z comme fin? 

:=> annuler bit DTR, RET 

:lire Read-Reg, 0 

:Caractère RX disponible? 

=> pas encore disponible 

annuler bit DTR 

adresse de port registre de données 
:lire caractère reçu 
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0 OOEREREHEE Onnuler bit DIR, autoriser réception 


C420 
C422 


LRSLLELSÉELÉESISS ES 


Cu2h 
C426 
C427 
C428 
C42A 
C42C 
C42D 
C42F 
C430 
C432 
C433 
Cu34 


LÉLLSLSESS LISTES) 


Cu35 
C438 


C43A 
C43D 
CU3F 
C4] 
Cuu2 
Cuu3 
Cuut 


LÉELEL LES SES SL SSL) 


Cuus 
Cuu6 
CH4g 


LÉLSS SSL SSL SELS.) 


CH4B 
CC 
C44F 
C450 
C453 


1E00 
1802 


1E80 
F3 
F5 
3E05 
ED79 
7E 
E67F 
B3 
ED79 
F1 
FB 
C9 


O1DDFA 
1803 


O1DFFA 
ED78 
E604 
C8 

37 

SF 

C9 


79 
O1DDFA 
1804 


79 
O1DFFA 
F5 
CDD3C4 
CD3DC4 


LD E, OCH annuler bit 7, indifférent 
JR 0C426H 


mettre bit DTR, interdire réception 


LD E, 80H mettre bit 7 

DI 

PUSH AF 

LD À, O5H sWrite-Reg, 5 

OUT (C),A :appeler 

LD A, CHL) 3(hl)=> contenu de WR-Reg 5 
AND 7FH sisoler bit 7 

OR E :suivant appel Bit 7 mis/annulé 
OUT (C),A écrire dans Write-Reg, 5 
POP AF 

EI 

RET 


teste, si buffer TX canal À vide 


LD BC,OFADDH  ;SIO canal À, registre de contrôle 
JR OC43DH 
ROPORRREREEEXE Loste, si buffer TX canal B vid 
LD BC,OFADFH  ;SIO canal B, registre de contrôle 
IN A, (C) :lire Read-Reg O0 
AND O4H sisoler TX-Empty-Bit 
RET Z :=> Buffer n'est pas vide 
SCF marque buffer vide 
SBC À À 
RET 


envoyer un caractère à travers canal À 


LD A C caractère à sortir dans accu 
LD BC, OFADDH ;SIO canal À, registre de contrôle 
JR OC4UFH 


envoyer un caractère à travers canal B 


LD A,C caractère à sortir dans accu 

LD BC, OFADFH  ;SI0 canal B, registre de contrôle 
PUSH AF Sauver caractère 

CALL OC4D3H interroger clavier 

CALL OC43DH ;:buffer d'envoi vide? 


rl 17 


C456 
C458 
C45g 
CUSA 
C4SC 


LÉLLLS SSL LS SSL) 


CH5D 21B3C4 


CH60 


LELLELELLLSIZZS SZ] 


Cu62 21BCC4 


C465 


LÉLELELLSLELT SSL] 


Cu67 21A1C4 


*######4# déterminer 1/0-Device avec 


C46A 
C46B 
CH6C 
C46F 
Cu70 
C472 
Ccu7h 
C476 
Ccu77 
Ccy78 
cu79 
Cu7A 
C47B 
Cu7C 


LÉLSL EE ESS SL SEE) 


C47D 
CU7E 
c480 
cu82 
Cugu 


CRÉES S LS SSL SES: 


Cu86 


30F8 
F1 
OB 
ED79 
C9 


1808 


1803 


46 
25 
3A0300 
07 
10FD 
E606 
1600 
SF 
19 
SE 
25 
56 
EB 
E9 


01 

A7BE 
1303 
5DC4 
B5BE 


01 


JR 

POP 
DEC 
OUT 
RET 


NC, OCà50H 
AF 

BC 

(C),A 


=> pas encore vide 

caractère à nouveau dans accu 
;:adresse de port registre de données 
écrire caractère dans SIO 


déterminer READER Status à travers octet 1/0 


LD 
JR 


HL, OC4B3H 


OCUGAR 


:table READER-Status 


READER- Input à travers octet 1/0 


LD 
JR 


HL, OC4BCH 


OCHGAH 


;table READER-Input 


PRINTER-OUTPUT à travers octet 1/0 


LD 


LD 
INC 
LD 
RLCA 
DIJNZ 
AND 
LD 
LD 
ADD 
LD 
INC 
LD 
EX 
JP 


HL, OCHATH 


B, (HL) 
HL 
À, (0003H) 


OCUGFH 
O6H 

D, 00H 
E,A 
HL, DE 
E, CHL) 
HL 

D, CHL) 
DE, HL 
CHL) 


CONSOLE STATUS 


DEFB 
DEFW 
DEFW 
DEFW 
DEFW 


01H 

OBEA7H 
0C313H 
OC4SDH 
OBEB3H 


CONSOLE INPUT 


DEFB 


O1H 


ztable PRINTER-Output 


octet I/0, (hl)=> table d'affectation 
nombre boucle pour les 4 Devices 
:(hl1)=> première affectation 

soctet 1/0, habituellement 881 


:(b) fois octet 1/0 vers la gauche 
sisoler bits significatifs 


donne décalage dns table affectation 
;:additionner à start 
Adresse de routine 1/0 dans de 


:saut indirect à routine 1/0 


;:JP OC3D8H,Car.SI0 Can. A disponible? 
:Caractère du clavier disponible? 
2READER Status à travers octet 1/0 
3 JP OC3E3H, Car .SI0 Can, B disponible? 
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C487 
C489 
C48B 
Cu8D 


LÉELLSLLSS ELLES LE. 


C48F 
C490 
cyg2 
cyg4 
C496 


LELLLESLLLL LISE 


C498 
c4gg 
CugB 
C49D 
C49F 


LLLLLELLE SSL ES EL) 


CuA1 
CuA2 
CUAU 
CUAG 
CUA8 


LELLESLELLSLSSS ES) 


CHAA 
CUAB 
CUAD 
CUAF 
CuB1 


LELELELLELL ELLES) 


CuB3 
CuB4 
C4B6 
CuB8 
CHBA 


LÉLSSLSE LL LL LEZ] 


CuBC 


AABE 
26C3 
62C4 
B6BE 


01 

BOBE 
5BC3 
67C4 
BCBE 


03 

ADBE 
58C3 
79C3 
B9BE 


03 

BOBE 
5BC3 
7FC3 
BCBE 


05 

BOBE 
5AC3 
BCBE 
5BC3 


07 

A7BE 
58C3 
B3BE 
1303 


07 


DEFW 
DEFW 
DEFW 
DEFW 


CONSOLE 
DEFB 
DEFW 
DEFW 
DEFW 
DEFW 


PRINTER 
DEFB 
DEFW 
DEFH 
DEFW 
DEFW 


PRINTER 
DEFB 
DEFW 
DEFH 
DEFW 
DEFW 


PUNCHER 
DEFB 
DEFW 
DEFW 
DEFW 
DEFW 


OBEAAH 
0C326H 
OC462H 
OBEB6H 


OUTPUT 
O1H 

OBEBOH 
OC35BH 
OC467H 
OBEBCH 


STATUS 
03H 

OBEADH 
0C358h 
0C379H 
OBEB9H 


OUTPUT 
05H 

OBEBOH 
OC35BH 
OC37FH 
OBEBCH 


05H 

OBEBOH 
OC35AH 
OBEBCH 
OC35BH 


READER Status 


DEFB 
DEFW 
DEFW 
DEFW 
DEFW 


07H 

OBEA7H 
0C358H 
OBEB3H 
0C313H 


:JP OC3F7H,retirer car. de SIO Can. À 
sretirer caractère du clavier 

:lire car, READER à travers octet 1/0 
:JP OC3FFH, retirer car, de SIO Can. B 


:JP OC44SH, envoyer car, par SIO Can.A 
ssortir caractère sur l'écran 
3PRINTER OUTPUT à travers octet 1/0 
:JP OC4UBH, envoyer car. par SI0 Can.B 


:JP OC435, buffer envoi can. À vide? 
snon complété 

steste Centronics Busy 

:JP OC43A, buffer envoi can, B vide? 


:JP OCHUSH, envoyer car. par SIO Can.A 
ssortir caractère sur l'écran 

:Ssort caractère sur port Centronics 

: JP OC4UBH, envoyer car. par SIO Can.B 


:JP OC4USH, envoyer car. par SIO Can.A 
non complété, RET 

:JP OC4uBh, envoyer car. par SIO Can.B 
ssortir caractère sur l'écran 


:JP OC3D8H, Car. SIO Can. A dispon.? 
non complété 

3 JP OC3E3H, Car. SIO Can. B? dispon.? 
teste, si car. du clavier présent 


READER lire caractère 


DEFB 


07H 
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C4BD 
CUBF 
C4C1 
C4C3 


LELSSLELLSL LS ES SE) 


C4CS 
C4C8 
CHCA 
CUCB 
C4CC 
CHCD 
C4DO 
C4D1 
C4D2 


LELLLS SL LL LL SSL: 


C4D3 
C4D4 
C4D5 
C4D6 
C4D9 
CHDA 
C4DC 
C4DF 
CHE1 
CHE3 
CHES 
C4E8 


LES SLS LL SL S SSL) 


CHEB 
CHEC 
CHED 
CUEE 


LELLLELLSLLEL EE) 


CHEF 


LELLLLL SEL LS SL LS) 


CUFO 
C4F1 


AABE 
55C3 
B6BE 
2603 


CDD3C4 
FE13 
CO 

ES 

C5 
CD26C3 
C1 

ET 

C9 


ES 

D5 

C5 
CD13C3 
B7 
280F 
CD26C3 
FE03 
2008 
3EOD 
CDEBCA 
C32BC2 


C1 
Di 
EI 
cg 


FF 


79 
FE02 


DEFH 
DEFW 
DEFW 
DEFW 


CALL 
CP 
RET 
PUSH 
PUSH 
CALL 
POP 
POP 
RET 


tester, 
PUSH 
PUSH 
PUSH 
CALL 
OR 
JR 
CALL 
CP 
JR 
LD 
CALL 
JP 


OBEAAH 
0C355H 
OBEB6H 
0C326H 


OC4D3H 
13H 

NZ 

HL 

BC 
0C326H 
BC 

HL 


:JP 0C3F7H, retire car. de SIO can.A 
;:non complété, retire EOF 

3 JP OC3FFH, retire car. de SIO can.B 
sretire caractère du clavier 


tester si CONTROL C enfoncé 
3ENTER ? 
3=> pas ENTER 


sretirer autre caractère du clavier 


si CONTROL C est appuyé 


HL 

DE 

BC 
0C313H 

Â 
Z,OC4EBH 
0C326H 
03H 

NZ, OCHEBH 
À, ODH 
OCAEBH 
OC22BH 


stester Keyboard Status 


3=> pas de caractère disponible 
retirer caractère du clavier 

3 CONTROL C? 

=> pas Control C 

message système 14 ..°C 
ssortir 

;:Warm Boot 


pas d'action, CONTROL C pas appuyé 


POP 
POP 
POP 
RET 


BC 
DE 
HL 


pas utilisé 


RST 


38H 


SELECT DRIVE 


LD 
CP 


A, C 
02H 


:No lecteur dans accu 
ne peut être que O ou 1] 
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CUF3 
C4F6 
CUF7 
CuF8 
CuF9 
CUFB 
CUHFC 
CUFE 


C501 
C502 
C504 
C505 
C508 
C509 
CSOA 
C50B 
C50E 
c511 
C512 
C514 
C517 


LELLE LEE LS LES LE) 


C51A ED43GOBE 


CSIE 


LELLESSLLRS LES SL, 


CS1F 
C522 
C524 
C525 
C528 


LLLLLLSSRÉRELS LS) 


C529 
C52A 
C52D 


LÉRLESSS LS LS LS SE) 


C52E 
C52F 


210000 
DO 

7B 

1F 
380F 
59 
3E18 
CDSCCA 


B7 
2006 
ES 
CD6CC5 
E1 

DO 

79 
32535BE 
211002 
B7 
2803 
212002 
C39FCA 


C9 


CD6FC8 
0EO0 
79 
3254BE 
cs 


79 
3255BE 
C9 


C5 
79 


LD HL, 0000H 

RET NC :No lecteur trop grand 

LD AE :No lecteur actuel dans accu 

RRA :Bit O dans Carry 

JR C, OCSOAH :Saut, si lecteur 1 actif jusqu'ici 

LD E,C :lecteur voulu dans e 

LD À, 18H 

CALL OCASCH ;Charge val. bloc param.disc 18h dns 
accu 

OR À :si différent 0 

JR NZ,OC5SOAH alors saut 

PUSH HE 

CALL OC56CH ;sinon déterminer format disque 

POP HL 

RET NC 

LD AC numéro lecteur dans accu 

LD (OBES3H),A :buffer HS/US 

LD HL,0210H :décal. Disc Param, Header lecteur À 

OR À :si lecteur A utilisé, alors saut, 

JR Z,0C517H 

LD HL, 0220H 3Sinon décalage DPH pour lecteur B 

JP OCA9FH shis=hl+iv, h1 => début table pointeur 


entrer adresse buffer enregistrement 
LD (OBE60H),BC ; (bc):= buffer enregistrement 
RET 


chercher piste 0 
CALL OC86FH 


LD C, 00H 

LD A, C 

LD (OBES4H),A :(Buffer pour numéro de piste) 
RET 


envoyer numéro enregistrement au controller 

LD AC 

LD (OBE5SH),A :(Buffer pour numéro enregistrement) 
RET 


Write Record (écrire enregistrement) 
PUSH BC 
LD A, C 


- I 21 - 


C530 FEO02 CP 02H 
C532 CCEBC/ CALL Z, OC7EBH :lecteur, piste, enr. de be53h dns 


be5ah 
C535 CDOOC8 CALL 0C800H teste, si Drv, Trk & Rec dns be53h = 
be5ah 
C538 DC1BC8 CALL C,0C81BH :=> identiques 
C53B CD32C8 CALL 0C832H déterminer secteur avec numéro enr. 
CS3E C1 POP BC 
C53F DO RET NC 
C540 CDB6C8 CALL OC8B6H :transfère enreg. dans buffer secteur 
C543 OD DEC C :nombre enregistrements 
CSu4 37 SCF 
C54S  CC6FC8 CALL Z,0C86FH ajouter décal.secteur,écrire secteur 
C548 DO RET NC => erreur 
C549 3E00 LD À, OOH 
C5S4B C9 RET 
LÉLSELLLSLLLLLSS: Read Record 
CS4C AF XOR A :vider accu et 
CSYD 3259BE LD (OBESH),A ;entrer dans Blockmask+1 
C550 CD32C8 CALL 0C832H sdéterminer secteur avec No enreg. 
C553 CDC7C8 CALL OC8C7H :transfère enreg, dans buffer enreg. 
C556 DO RET NC 
C557 3E00 LD À, OCH 
C559 C9 RET 


RNRRREEX traduire numéro enregistrement 


CS5A 60 LD H,B stransfère seulement bc dans hl 
C55B 69 LD L,C 

C55C cg RET 

2 0HOEEERHERE lire ID secteur, interroger erreurs éventuelles 
C55D 017EFB LD BC,.OFB7EH  ;Status reg. FDC 

C560 3E4A LD A, UAH :lire code ID secteur 

C562 CDS5CC9 CALL 0C95CH ssortir accu sur FDC 

C565 7B LD AE sUnit Select/Head Select 

C566 CDSCC9I CALL OC95CH Sortir accu sur FDC 

C569 C3F9C8 JP OC8F 9H ;phase résultat FDC, Drive READY? 
EX éterminer format disquette d'après ID secteur 

C56C  CD76C9 CALL 0C976H :Moteur en marche 

C56F  3E16 LD A, 16H 


r'IL2= 


C571 


C574 
C575 
C577 
C57A 
C57D 
CS7E 


LELLLLLLELLSE ESS: 


C581 
C582 
C583 
C586 
C587 
C588 
C58B 
C58E 
C590 
C591 
c592 
C594 
C596 
C597 
C598 
C59B 
C59D 
C59F 
C5A2 
C5A3 
CSAL 
CSAS 
C5SAG 
CSA7 
C5SA8 
C5A9 
CSAC 
CSAD 
CSAE 
CSAF 
C5BO 
C5B1 


CDSCCA 


57 
0E10 
215DC5 
CDFFC6 
DO 
3AS1BE 


F5 

AF 
CD63CA 
ES 

EB 
2143CA 
011600 
EDBO 
ET 

F1 
E6CO 
FE4O 
37 

c8 
11CACS 
FECO 
2803 
11C0C5 
TA 

13 

77 

23 

TA 

13 

77 
010400 
09 

1A 

13 

77 

23 

JA 


CALL 


LD 
LD 
LD 
CALL 
RET 
LD 


OCASCH 


D, A 

C,10H 

HL, OC5S5DH 
OCGFFH 

NC 


À, (OBE51H) 


;:charger valeur bloc paramètres 
disque 16h dans accu 

c'est le numéro de piste actuel 
snombre de tentatives de lecture 
;:Adresse Routine ‘lire ID secteur’ 
:chercher piste dans d 

3NC = erreur 

;:No secteur de FDC dns phase résultat 


"83h déterminer formatage disque 


PUSH 
XOR 
CALL 
PUSH 
EX 
LD 
LD 
LDIR 
POP 
POP 
AND 
CP 
SCF 
RET 
LD 
CP 
JR 
LD 
LD 
INC 
LD 
INC 
LD 
INC 
LD 
LD 
ADD 
LD 
INC 
LD 
INC 
LD 


AF 

À 

OCA63H 

HL 

DE,HL 

HL, OCAUSH 
BC, 0016H 


HL 
AF 
OCOH 
40H 


L 

DE, OCSCAH 
OCOH 
Z,OC5A2H 
DE, OC5COH 
À, (DE) 

DE 

CHL), A 

HL 

À, (DE) 

DE 

CHL), A 
BC, OOO4H 
HL, BC 

À, (DE) 

DE 

CHL), A 
HL 

À, (DE) 


contient numéro secteur lu par FDC 
vider accu 
:début bloc param. disque dans hl 


:bloc param,.disc stndrd (DPB) dns Rom 
:22 octets 

;:dans bloc param. disque actuel 
:début table 

numéro de secteur 

annuler bits O à 5 

sbit 6 mis? 


:alors utiliser table format standard 
:début format données DPB, Tab,2 

;:Bit 6 et 7 mis? 

:Si oui, utiliser format de données 

: début DBP format IBM Tab.1 
transférer les deux 1ères valeurs 
:dans bloc param. disc 


:hl pointe sur bloc param, disc +5 
nombre blocs/disque 

stransférer deux octets suivants 
:dans bloc param. disque 
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C5B2 
C5B3 
C5B4 
C5B7 
C5B8 
C5B9 
C5BC 


INC 


LD 
ADD 


LD 
LDIR 


DE 
CHL), A 
BC,0007H 
HL, BC 
DE,HL 
BC, 0006H 


sh1 pointe sur bloc param. disque +13 


stransférer les 6 octets restants 
:dans bloc paramètres disque 
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CSBE 37 SCF 


CSBF C9 RET 

eee EX Valeurs table pour format IBM 

C5CO 2000 DEFW 0020 snombre enregistr./piste, SPT 

C5C2 9B00 DEFY 009B ;nombre blocs/disque, DSM 

C5C4 0100 DEFW 0001 snombre pistes pour système 
d'exploitation, OFF 

C5C6 01 DEFB 01 décalage secteur 

C5C7 08 DEFB 08 :secteurs/piste 

C5C8 2A DEFB 2A :longueur GAP 3 read/write 

C5C9 50 DEFB 50 ;: longueur GAP 3 formater 


RORERREEHEXEES Valeurs table pour format disque de données 


C5CA 2400 DEFW 0024 :Nombre enreg./piste, SPT 

CSCC B300 DEFW 00B3 Nombre blocs/disque, DSM 

CSCE 0000 DEF 0000 Nombre pour système d'exploitation, 
OFF 

C5DO C1 DEFB C1 :décalage secteur 

C5D1 09 DEFB 09 :secteurs/piste 

C5D2 2A DEFB 2A :longueur GAP 3 read/write 

C5D3 52 DEFB 52 :longueur GAP 3 formater 

RAR RRRREEEEX table (7 octets) est copiée dans beuu.,, 

C5D4 3200 DEF 0032 :délai plein régime moteur disque 

C5D6 FAO0 DEFW OOFA sticker délai pour moteur lecteur 

C5D8 AF DEFB AF ; 

C5D9 OFOC DEFW OCOF ;:valeurs pour longue boucle délai 


ROOREREEEEE Table (2 octets) nécessaire en 882 


C5SDB 01 DEFB 01 :Head Unlioad Time pour FDC = 32 ms 

C5DC 03 DEFB 03 Head Load Time pour FDC = 16 ms 

RRREREREEREEEEX jnijtialise DPHS, DPBS, FDC et Event 

C5DD 1140BE LD DE,OBEUOH ; Adresse Ram pour routines controller 

C5EO 013D00 LD BC, 003DH :Nombre d'octets 

C5E3 CDAFCA CALL OCAAFH efface (de) à (de+bc) 

CSE6 CDF4C9 CALL OC9F4H sinitialise bloc paramètres 
disque/Header 

C5EQ  CDE8C9 CALL OCSE8H arrêter moteur lecteur 

CSEC 21D4C5 LD HL,O0C5D4H  ;table paramètres FDC 

CSEF  CDODCE CALL OC60ODH sinitialiser paramètres lecteur FDC 

C5F2 CD12B9 CALL 0B912H 3KL ASK CURR SELECTION 
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CSF5 
C5F6 
C5F8 
C5FB 
C5SFE 
C601 


LÉLLLLLLLLLL LEZ] 


C603 
C604 
C607 
C6OA 
C60B 
C60€ 


LELEELLELLLLLLS] 


C60D 
C610 
C613 
C615 
C618 
C6TA 
C61D 
C620 
C621 
C622 
C623 
C624 
C625 
C627 
C628 
C62B 
C62C 
C62D 


LES LS SES LES ESS) 


C630 
C633 
C634 
C637 


GF 
0680 
216DBE 
11D6C9 
CDEFBC 
310 


ES 
2A66BE 
3266BE 
7D 
ET 
cg 


1144BE 
010700 
EDBO 
017EFB 
3E03 
CD5CC9 
3AUABE 
3D 

07 

07 

07 

2F 
E6FO 
B6 
CDSCC9 
23 

JE 
C35CC9 


CD38C6 
DO 
3AUCBE 
C9 


LD C,A Sélection Rom pour routine Event 
LD B, 80H classe Event asynchrone 

LD HL,O0BE6DH  ;bloc Event 

LD DE,OC9D6H ; Adresse de la routine Event 


CALL OBCEFH 
LD À, 10H 


189 fixe nombre 


;KL INIT EVENT 


tentatives lecture, nombre dans accu 


PUSH HL 

LD HL, (OBE66H) ;: Nombre tentatives lecture 
LD (OBE66H), À 

LD AL 

POP HL 

RET 


t82 spécifier do 


nnées lecteur 


LD DE,OBE4UH  ;FDC-Ram +4 

LD BC, 0007H 

LDIR 

LD BC,OFB/EH  ;registre d'état FDC 

LD A, 03H :code opération Specify Drive Param. 
CALL 0C95CH :envoyer au FDC 

LD A, (OBE4AH) ;délai d'attente en millisec, (12) 
DEC A 

RLCA 

RLCA 

RLCA 

CPL 

AND OF CH :donne AOh = 12 ms Step Rate 

OR CHL) Head Unload-Time dans les bits O0 à 3 
CALL 0C95CH :envoyer au FDC 

INC HL 

LD A, (HL) Head Load Time 

JP OC95CH :Envoyer au FDC 


°88 déterminer é 
CALL 0OC638H 


RET NC 
LD À, (OBEUC 
RET 


tat lecteur 
:Routine déterminer état lecteur 
;=> erreur apparue 

H) ;charger FDC-Status 0 dans accu 


1:26. 


EEE Routine déterminer état lecteur 


C638 CD/6C9 CALL 0C976H Moteur marche, ajouter ticker pour 
délai 

C63B F5 PUSH AF 3AcCU contient No lecteur 

C63C CD47C9 CALL 0OC947H Sense Interrupt Status FDC 

C63F 017EFB LD BC,OFB7EH  ;registre d'état FDC 

C642 3E04 LD À, O4H ;:code opération Sense Drive Status 

C644  CDSCC9 CALL 0OC95CH envoyer accu au FDC 

C647 F1 POP AF :No lecteur 

C648 CDS5CC9 CALL OC95CH envoyer accu au FDC 

C64B C31CC9 JP 0C91CH :lire phase résultat FDC 


ROOOERRRERMEEE RE écrire secteur e=Drv, d=Trk, c=Sec, hi=buffer 1/0 


CGUF 3EUS LD À, 45H :code d'opération écrire secteur 

C650 1802 JR OC654H 

LÉELÉLLLLLLLLLLS LS) "86 formater piste 

C652 3EA4D LD À, LDH :code d'opération formater piste 

C654 CD76C9 CALL 0C976H :Moteur marche, ajouter ticker pour 
délai 

C657 0611 LD B, 11H :Nombre tentatives 

C659 CD6DC6 CALL OC66DH :Read/Write/Format cont'd 

C65C 3AUSBE LD À, (OBE48H) 

C65F  3D DEC À 

C660 03 INC BC 

C661 03 INC BC 

C662 03 INC BC 

C663 20FA JR NZ, OC65FH 

C665 C9 RET 


RRREREMEEES RU lire secteur, e=Drv, d=Trk, c=Sec, hl=buffer 1/0 


C666 CD76C9 CALL 0C976H Moteur marche, ajouter ticker pour 
délai 

C669 3E66 LD À, 66H ;:code d'opération lire secteur 

C66B 0610 LD B, 10H 

ee #### Read/Write/Format cont’d 

C66D 2262BE LD (OBE62H),HL ;:buffer 1/0 de 512 octets 

C670 67 LD H, A ;code d'opération FDC 

C671 69 LD L,C numéro secteur 

C672 2274BE LD (OBE74H),HL ;ranger code opérat. et secteur voulu 

C675 48 LD C,B Nombre des tentatives de lecture 
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C676 
C679 


LÉSLLLS SSL SLS EE) 


C67C 
C67F 
C682 
C683 
C686 
C687 
C68A 
C68B 
C68D 
C68F 
C691 


c694 
C696 


C69g 
C69B 


CG 
C6AC 


C6A3 


LÉLESLLL LIL LLS SE) 


C6AS 
C6A6 
C6AI 
CGAA 
CGAD 
CGAE 
C6B1 
C6B3 
C6B6 
C6B7 
C6BA 
C6BC 
C6BF 


217CC6 
C3FFC6 


2A7UBE 
017EFB 
7C 
CD5CC9 
7B 
CDSCC9 
7C 
FEUD 
2016 
3E14 
CD59C9 


3E10 
CD59C9 


3E12 
CD59C9 


313 
CD5CCA 


181C 


7A 
CD5CC9 
AF 
CD5CC9 
7D 
CD5CC9 
3E14 
CD59C9 
7D 
CD5CC9 
3E11 
CD59C9 
3EFF 


LD HL,0C67CH ;programmer adresse FDC 

JP OC6FFH schercher piste dans d, ‘Call (hl)' 

programmer FDC pour action voulue 

LD HL, (OBE74H) ; (code opér. et secteur voulu) 

LD BC,OFB7EH  ;registre d'état FDC 

LD AH :code d'opération FDC 

CALL OC95CH :envoyer au FDC 

LD AE Head Sel./Unit Sel., donc No lecteur 

CALL OC95CH >envoyer au FDC 

LD AH :code d'opération sorti dans accu 

CP 4DH :formater piste? 

JR NZ,OC6ASH  ;saut si lecture/écriture secteur 

LD A, 14H 

CALL 0C959H soctets/secteur de bloc param.disc au 
FDC 

LD A, 10H 

CALL 0C959H :secteurs/piste de bloc param.disc au 
FDC 

LD À, 12H 

CALL 0C959H ;:longueur GAP3 de bloc param. disc au 
FDC 

LD A, 13H 

CALL OCASCH soctet remplissage, valeur bloc 
param, lecteur 13h 

JR OC6C1H :Read/Write/Format Phase Execution 


entrée lecture/écriture d'un secteur 


LD A, D snuméro piste 

CALL OC95CH envoyer accu au FDC 

XOR À :No tête (pour lecteur double-tête) 
CALL OC95CH :Envoyer accu au FDC 

LD AL Numéro secteur 

CALL OC95CH :Envoyer accu au FDC 

LD A 14H 30ctets/Secteur 

CALL 0C959H stiré de bloc param. disque au FDC 
LD AL snuméro secteur comme dernier secteur 
CALL OC95CH :Envoyer accu au FDC 

LD A, 11H sLongueur GAP3 pour Read/Write 
CALL 0C959H stiré de bloc param. disque au FDC 
LD A,OFFH 3DTL, doit être ffh 
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eee erx## Read/Write/Format Phase Execution 


C6C1 
C6Cu 
C6CS 
C6C8 
C6Cg 
C6CA 
C6CD 
C6CE 
CGCF 
C6D0 


LELLLLLELSLLLE SES) 


C6D1 
C6D2 
C6DS 
C6D6 
C6D9 
C6DB 
C6DD 


LELLS) 


C6DF 
C6EO 
C6E2 
C6E3 
C6E4 
CG6E5 
C6E7 
CEA 
C6EC 
CGEE 


LÉELRESSSSSLLLS LE) 


CGEF 
C6FO 
C6F1 
C6F3 
C6F4 
CG6F5 
C6F7 
CGFA 


CDD1C6 
FB 
CDO7C9 
D8 
co 
3AUDBE 
87 
D8 
AF 
C9 


F3 
CDSCCS 
7C 
2A62BE 
FE66 
2018 
1806 


boucle de 


OC 
ED78 
77 

OD 

23 
ED78 
F2ESC6 
E620 
20F1 
C9 


OC 

7E 
ED79 
OD 

23 
ED78 
F2F5C6 
E620 


CALL OC6D1H :Secteur 1/0 de 512 octets 

EI 

CALL 0OC907H :lire état FDC, Drive Ready Write 
RET C :Prot? 

RET NZ 

LD A, (OBEUDH) ;Statusreg.1 FDC 

ADD A, À 

RET € 3#> Carry est OK 

XOR Â 

RET 


Secteur Read/Write, 512 Octets 


DI 

CALL 0OC95CH 3Envoyer accu au FDC 

LD AH 

LD HL, (OBE62H) ;buffer 1/0 de 512 octets 

CP 66H ;Code d'opération lire secteur? 

JR NZ,OC6F5H  ;si non, à la boucle d'écriture 

JR OC6ESH ;à la boucle de lecture 

lecture, lire données jusque FDC annonce fin du secteur 
INC C ;(bc) sur reg. données FDC 

IN À, (C) :lire octet de données 

LD (HL),A :sauver dans buffer (h1l) 

DEC C 3(bc) sur registre d'état FDC 

INC HL ;augmenter pointeur de buffer 

IN A, (C) sretirer octet d'état 

JP P,0C6ESH attendre octet message Ready 

AND 20H sfin exécution, commencer résultat? 
JR NZ,OC6DFH  ;retirer prochain octet 

RET 


boucle d'écriture, écrire données jusque FDC annonce fin 


INC C 3: (bc) sur registre de données FDC 
LD À, (HL) retirer octet du buffer 

OUT (C),A set écrire sur disque 

DEC C 3(bc) sur registre d'état FDC 

INC HE augmenter pointeur de buffer 

IN A, (C) aller chercher octet d'état 

JP P,0C6F5H prochain octet réclamé? 

AND 20H :fin exécution, commencer résultat? 
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C6FC 20F1 JR NZ, OCG6EFH  ;écrire prochain octet 
CGFE C9 RET 


HHOERREEEEEE cherche la piste indiquée dans d 


C6FF  3AGGBE LD À, (OBE66H) ;: Nombre de tentatives de lecture 
C702 47 LD BA 

C703 CD2BC7 CALL 0C72BH 3chercher piste 

C706 D8 RET C ;:=> trouvé piste 

C707 2819 JR Z,0C722H 3=> 10 échecs, alors READ FAIL 
C709 78 LD AB nombre tentatives restant 

C7OA E604 AND 04H 

C70C 2809 JR Z,0C717H mettre flag recalibrate 

C/CE DS PUSH DE 3piste voulue 

C70F 1627 LD D,27H :piste 39 

C711 CD66C7 CALL 0C766H ;chercher piste 

C714 D1 POP DE 3piste voulue 

C715 18EC JR 0C703H nouvelle tentat, pour trouver piste 


HEOEREEEEE Fixer flag recalibrate sur recalibrate 


C717 ES PUSH HL 

C718 3E17 LD A,17H :0ctet 17h dans paramètre disc actuel 
C71A CD63CA CALL OCA63H :déterminer bloc, fixer flag 

C71D 3600 LD CHL), OOH srecalibrate sur recalibrate 

C71F El POP HL 

C720 18E1 JR 0C703H 

R00HEERRHEXE SOPTIT READ FAIL lors de recherche de piste 

C722 79 LD AC 

C723 C5 PUSH BC 

C724 CD/ACA CALL OCA7 AH lecteur dans c, sortir message, CIR 
C727 C1 POP BC 

C728 20D5 JR NZ,OC6FFH  ;chercher piste dans d, call (hl) 
C72A C9 RET 

LLLLLLLLLLL LL ST] 

C72B CDS4C7 CALL OC754H :chercher piste dans d, CALL CHL) 
C72€ D8 RET C 

C72F C8 RET Z 

C730 CDu7C9 CALL 0C947H ;:Sense Interrupt Status FDC 

C733 CD54C7 CALL OC754H ;chercher piste dans d, CALL (CHL) 
C736 D8 RET C 

C737 C8 RET Z 
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C738 
C739 
C73B 
C73C 
C73E 
C73F 
C740 
C743 
C744 
C747 
C748 
C749 
C7HA 
C7uB 
C74D 
C7LE 


LÉSELL SSL SEL TL: 


C74F 
C750 
C753 
C754 
C757 
C758 
C759 
C75C 
C75D 
C75E 
C75F 
C761 
C762 


LRSELLSE ESS SELLES: 


C763 


C766 
C767 
C768 
C769 
C76C 
C76D 
C76F 


7A 
FE27 
05 
300A 
O4 

14 
CD66C7 
15 
CD54C7 
D8 

c8 

7A 

B7 
2002 
05 

C9 


15 
CD66C7 
14 
CD66C7 
ES 

C5 
CD1E00 
C1 

ET 

D8 
20F3 
05 

C9 


CD76C9 


ES 

D5 

C5 
3AGGBE 
47 
3E17 
CD63CA 


LD 
CP 
DEC 
JR 
INC 
INC 
CALL 
DEC 
CALL 
RET 
RET 
LD 
OR 
JR 
DEC 
RET 


DEC 
CALL 
INC 
CALL 
PUSH 
PUSH 
CALL 
POP 
POP 
RET 
JR 
DEC 
RET 


AD 
27H 
B 


numéro de piste 
:40 pistes 


NC, OC748H 


B 

D 
OC766H 
D 
OC754H 
C 

Z 

A, D 

À 


:chercher piste dans d 


;chercher piste dans d, CALL CHL) 


:Numéro de piste 
3 <>07? 


NZ, OC74FH 


B 


D 
0C766H 
D 
OC766H 
HL 

BC 
O01EH 
BC 

HL 

C 


: Chercher piste dans d 


:Chercher piste dans d 


:CALL CHL) 


NZ,OC754H ; Chercher piste dans d, CALL CHL) 


B 


°87 chercher piste dans registre d 


CALL 


PUSH 
PUSH 
PUSH 
LD 
LD 
LD 
CALL 


0C976H 


HL 
DE 
BC 


Moteur en marche, ajouter ticker 
pour délai 


À, (OBE66H) ; Nombre de tentatives de lecture 


B, A 
A,17H 
OCA63H 


:0ctet 17h, flag recalibrate 
;du bloc param. disc actuel 
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C772 JE LD À, CHL) dans accu 


C773 B7 OR A 

C774 201F JR NZ,0C795H  ;=> pas de recalibrate 

C776 C5 PUSH BC :b:= Nombre tentatives de lecture 

C777 O017EFB LD BC,OFB/EH  ;registre d'état FDC 

C77A 3E07 LD A, 07H :Recalibrate piste 0 

C77C CDSCC9 CALL OC95CH :Envoyer accu au FDC 

C77F 7B LD À E Head Select/Unit Select 

C780 CDSCC9 CALL 0C95CH :Envoyer accu au FDC 

C783 3E28 LD À, 28H attendre 40 fois 12 millisecondes, 

C785 CDC7/C7 CALL OC7C7H :puis lire FDC Interrupt Status 

C788 302A JR NC, OC7B4H 

C78A 3E16 LD À,16H :0ctet 16h, DPB actuel 

C78C CD63CA CALL OCA63H c'est le numéro de piste actuel 

C78F 3600 LD (HL), 00H :effacer 

C791 23 INC HL :0ctet 17 dans bloc param. disc 

C792 36FF LD CHL),0FFH  ;sur -1 

C794 C1 POP BC :b:= Nombre tentatives de lecture 

C795 2B DEC HL 

C79 7E LD À, CHL) numéro de piste atteint 

C797 92 SUB D comparer avec piste voulue 

C798 2828 JR Z,0C7C2H :=> position atteinte 

C79gA C5 PUSH BC 3b:= Nombre tentatives de lecture 

C79B 017EFB LD BC,OFB/EH  ;Registre d'états FDC 

C7Œ  3EOF LD À, OFH :Code d'opération chercher piste 

C7AO CD5CC9 CALL 0OC95CH :Envoyer accu au FDC 

C7A3 7B LD LE Head Select/Unit Select 

C7A4 CDSCC9 CALL OC95CH :Envoyer accu au FDC 

C7A7 JA LD A, D Numéro de piste voulu 

C7A8 CDSCC9 CALL 0C95CH :Envoyer accu au FDC 

C7AB 96 SUB CHL) 3Ôter numéro de piste atteinte 

C7ZAC 3002 JR NC,OC7BOH  ;Position atteinte 

C7AE 7E LD A, CHL) 

C7AF 92 SUB D 

C7BO 72 LD CHL),D 

C7B1 CDC7C7 CALL OC7C7H attendre, puis lire FDC Inter. Stat. 

C7B4 C1 POP BC 

C7B5 380B JR C, OC7C2H tout OK, piste trouvée 

C/B7 20BD JR NZ,0C776H  ;snouvelle tentative, éventuellement 
avec Recalibrate 

C7B9 05 DEC B compteur tentatives écoulé? 

C7BA CAADC9 JP Z, OC9ADH alors traitement erreur 
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C7BD 
C7C0 


LELLESLSLLLLL SEX) 


C7C2 
C7C3 
C7C4 
C7C5 
C7C6 


LÉIRLÉSS LS LSLSEE ES) 


C7C7 
C7C8 
C7CB 
C7CE 
C7CF 
C7D0 
C7D2 
C7D5 
C7D8 
C7DA 
C7DD 


LELLLELLESLSLLLS) 


C7EO 
C/E1 
C7E3 
C7E4 
C7E6 
C7E7 
C/E8 
C7EA 


LÉRSSRSRSSSSRELSE SE) 


C7EB 
C7EE 
C7EF 


C7F1 
C7F4 
C7F5 


CD47C9 
18B4 


C1 
Di 
ET 
37 
cg 


F5 
3AUABE 
CDEOC7 
F1 

3D 
20F5 
3AU9BE 
CDEOC7 
3E08 
CDSCC9 
C3F9C8 


F5 
3EF6 
3D 
20FD 
F1 
3D 
20F6 
C9 


2153BE 
SE 
3E03 


CDSCCA 
3C 
1159BE 


CALL 
JR 


piste a été trouvée 


POP 
POP 
POP 
SCF 
RET 


attend (Accu * 12)+ 


PUSH 
LD 
CALL 
POP 
DEC 
JR 
LD 
CALL 
LD 
CALL 
JP 


OC947H 
0C776H 


BC 
DE 
HL 


AF 

À, (OBEUAH) 
OC7EOH 

AF 

À 

NZ, OC7C7H 
À, (OBE49H) 
OC7EOH 

À, 08H 
OC95CH 
OC8F 9H 


:Sense Interrupt Status FDC 
nouvelle tentative, éventuellement 
avec recalibrate 


marque que tout est OK 


16 ms, lit Int.Status FDC 


:Boucle de tempor. 


:Boucle de tempor. finie? 


:Boucle de tempor., 

;:Code d'opér, Sense Interrupt Status 
:Envoyer accu au FDC 

:lire Int.Status FDC, Drive READY? 


attend accu*1 milliseconde 


PUSH 
LD 
DEC 
JR 
POP 
DEC 
JR 
RET 


LD 
LD 
LD 


CALL 
INC 
LD 


AF 

À, OF6H 

À 

NZ, OC7E3H 
AF 

À 

NZ, 0C7EOH 


HL, OBES5S3H 
E, CHL) 
À, 03H 


OCASCH 
A 
DE, OBE59H 


;:Accu est compteur de boucle 
valeur de délai 

compte à rebours accu jusqu'à O0 
environ 1 milliseconde 
:diminuer compteur de boucle 


:éventuellement nouvelle boucle 


buffer HS/US 

numéro lecteur dans e 

valeur bloc param.disc 03h, masque 
bloc 

;Charger dans accu 

augmenter bloc masque 
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C7F8 12 LD (DE), A 
C7FY 13 INC DE 

C7FA 010300 LD BC, 0003H 
C7FD EDBO LDIR 

C7FF C9 RET 

EN HOHDEHEHÉE DEN NE HE HE EN 

C800 1159BE LD DE, OBE59H 
C803 1A LD À, (DE) 
C804 B7 OR A 

C805 C8 RETZ 

C806 13 INC DE 

C807 2153BE LD HL, OBE 53H 
C80A 0603 LD B, 03H 
C80C 14 LD A, (DE) 
C80D AE XOR  CHL) 

C80E 2006 JR NZ, 0C816H 
C810 13 INC DE 

c811 23 INC HL 

C812 10F8 DUJNZ  OC80CH 
c814 37 SCF 

c815 C9 RET 

HOCHOHDEMEHE HE 

C816 AF XOR A 

C817 3259BE LD (OBES9H), À 
CSIA C9 RET 


ROOOOERRHEXE encore place pour cet 


C81B F5 PUSH AF 

C81C 2159BE LD HL, OBE59H 
C81F 35 DEC CHL) 

C820 23 INC HL 

C821 SE LD E, CHL) 
C822 23 INC HL 

C823 23 INC AL 

C824 34 INC CHL) 

C825 AF XOR À 

C826 CDSCCA CALL OCASCH 
C829 BE CP CHL) 

C82A 2004 JR NZ, OC830H 
C82C 3600 LD CHL), 00H 


et ranger 
transférer lecteur, piste et numéro 
enregistrement de be53h en beS5ah 


:buffer HS/US 
:3 octets, lecteur, 
3(h1) = (de)? 


piste et secteur 


=> différent, erreur 


:prochain Octet 
marque OK 


enregistrement? sinon piste suivante? 


No lecteur dans e 


:No enregistrement dans la piste 
augmenter numéro enregistrement 
:octet faible enregistrements/piste 
:de bloc param.disc dans accu 

numéro enregistrement maxi atteint? 
=> pas encore atteint 

:fixer enregistr, dans la piste sur 0 
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C82E 
C82F 
C830 
C831 


LÉRLÉLÉSSLELELSE SES] 


C832 
C833 
C836 
C838 
C85B 
C83C 
C83D 
C83E 
c841 
C8u42 
Cu 
C847 
C8uA 
C8uB 
C8uc 
C8uF 
C850 


LÉ SES SELS LLLLL SL] 


C851 
C852 
C853 


LELLELSLEELELS LS. 


C854 
C857 
C858 
C859 
C85C 
C85F 
C860 
C861 
C862 
C863 
C864 
C865 


2B 
34 
F1 
C9 


F5 
CD54C8 
3819 
CD6FC8 
C1 

DO 

C5 
CD80C8 
F1 
3806 
CDA2C8 
CD66C6 
F5 

SF 
325EBE 
F1 

cg 


F1 
37 
C9 


3ASEBE 
B7 
c8 
0153BE 
2156BE 
SE 
OA 
AE 
CO 
03 
23 
OA 


DEC 
INC 
POP 
RET 


PUSH 
CALL 
JR 
CALL 
POP 
RET 
PUSH 
CALL 
POP 
JR 
CALL 
CALL 
PUSH 
SBC 
LD 
POP 
RET 


POP 
SCF 
RET 


LD 
OR 
RET 
LD 
LD 
LD 
LD 
XOR 
RET 
INC 
INC 
LD 


HL 
CHL) 
AF 


AF 
OC854H 
C,0C851H 
OC86FH 
BC 

NC 

BC 
OC880H 
AF 
C,OC84AH 
OC8A2H 
OC666H 
AF 

A, À 
COBESEH), À 
AF 


AF 


À, (OBESEH) 
À 

Z 

BC, OBE53H 
HL, OBES6H 
E, (HL) 

À, (BC) 
CHL) 

NZ 

BC 

HL 

À, (BC) 


shl = be5b, numéro de piste 
augmenter numéro de piste 


réparer pile pour cas d'erreur 

=> erreur 

pas erreur, bc à nouveau sur la pile 
teste si fin secteur 


:=> enreg. déjà dans buffer secteur 
:No secteur dans c,buffer sect.dns hl 
:lire secteur 

traiter erreur éventuelle 

:ffh =pas d'erreur en lecture secteur 


:lire flag OK secteur 


:buffer HS/US 


:No lecteur dans e 

:charger ancien No lecteur dans accu 
:identiques? 

3:Si non, alors RET 

ancien numéro de piste 

nouveau numéro de piste 
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C866 
C867 
C868 
C86B 
C86C 
C86D 
C86E 


LÉRLLS LL EL LS ESS) 


C86F 
C872 
C874 
C875 
C876 
C877 
c878 
C879 
C87A 
C87D 


LRLELLLLLLSSLLE] 


C880 
C883 
C886 
C887 
C888 
C889 
C88A 
C88B 
C88c 
C88D 
C890 
C891 


LÉSLÉSSS SL SSL SE) 


C892 
C893 
c894 
C396 


AE 
CO 
CD92C8 
AE 
Co 
37 
C9 


215EBE 
3600 
2B 

7E 

B7 

37 

c8 

34 
CDA2C8 
C3LEC6 


2156BE 
0153BE 
OA 
77 
5F 
23 
03 
OA 
77 
CD92C8 
77 
C9 


03 

23 
3E15 
CDSCCA 


XOR 
RET 
CALL 
XOR 
RET 
SCF 
RET 


LD 
LD 
DEC 
LD 
OR 
SCF 
RET 
INC 
CALL 
JP 


LD 
LD 
LD 
LD 
LD 
INC 
INC 
LD 
LD 
CALL 
LD 
RET 


CHL) 
NZ 
0C892H 
CHL) 
NZ 


HL, OBESEH 
CHL), 00H 
HL 

À, CHL) 

À 


fl 

CHL) 
OC8A2H 
OCG4EH 


HL, OBE56H 
BC,OBE53H 
À, (BC) 
CHL), A 
E,A 

HL 

BC 

A, (BC) 
CHL),A 
0C892H 
CHL), A 


identiques? 
3Si non, alors retour 
:dépassement lors d'écriture enreg. 


:Si dépassement, alors retour 
tout est OK 


annuler flag OK lire secteur 


:(hl)=> flag écrire secteur 


3=> Flag à 0, ne pas écrire 


;:calculer No secteur effectif 
:°85 écrire secteur 


sbuffer HS/US 


;valeur Head Select/Unit Sel, dans e 


détermine No sect,,teste si overfion 


détermine No secteur, teste si dépassement enregistrement 


INC 
INC 
LD 
CALL 


BC 
HL 
A, 15H 
OCASCH 


: (numéro enregistrement) 


;charger nombre enregistrements par 
secteur dans accu 
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:charger numéro enreg. dans accu 


numéro secteur effectif 


) 3No lecteur et piste dans det e 
;:charger dns accu bloc param.disc Ofh 
;premier numéro secteur d'une piste 
; (numéro secteur voulu 0-8) 

:donne No du secteur à lire 
:Numéro secteur dans c 
:déterminer adresse buffer secteur 
shli=hl+iv 


transférer enregistrement dans buffer secteur écriture 


:Sauver tous les registres 


écrire marque enregistrement 
:Read/Write flag secteur 

alimenter bc, de et hi 

:KL LDIR, transférer enreg.dns secteur 
restaurer tous les registres 


** transférer enregistrement de buffer secteur dans buffer enregistrement 


C899 57 LD D,A 

C89A OA LD À, (BC) 
C89B CB3A SRL D 

C89D D8 RET C 

C8 CB3F SRL Â 

C8A0 18F9 JR OC89BH 
LELSELELLLLL SELLE) calcule 

C8A2 EDSB56BE LD DE, (OBE56H 
C8A6 3EOF LD À, OFH 
C8A8 CDSCCA CALL OCASCH 
C8AB 2158BE LD HL, OBES58H 
C8AE 86 ADD À, CHL) 
C8AF UF LD C,A 

C8B0 21B002 LD HL, 02BOH 
C8B3 C39FCA JP OCA9FH 
LÉELLELLLILLLS LS) 

C8B6 ES PUSH HL 

C8B7 DS PUSH DE 

C8B8 C5 PUSH BC 

C8B9 F5 PUSH AF 

C8BA 3EFF LD À, OFFH 
C8BC 325DBE LD (OBESDH) , À 
C8BF CDD6C8 CALL OC8D6H 
C8C2 CD1BB9 CALL 0B91BH 
C8C5 180 JR OC8D1H 
C8C7 E5 PUSH HL 

C8c8 D5 PUSH DE 

C8C9 C5 PUSH BC 

C8CA F5 PUSH AF 

C8CB CDD6C8 CALL OC8D6H 
C8CE EB EX DE, HL 
C8CF EDBO LDIR 

C8D1 F1 POP AF 

C8D2 C1 POP BC 

C8D3 D1 POP DE 

C8D4 E1 POP HL 

C8D5 C9 RET 


:Sauver tous les registres 


alimenter bc, de et hl 


:de buffer enreg. dans buffer secteur 
restaurer tous les registres 
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CLLLL ESS SIL LE LE) de 


C8D6 
C8D9 
C8DA 


C8DC 
C8DF 
C8E0 
C8E1 
C8&E2 
C8E3 
C8E6 
C8&9 
C8 A 
C8EB 
C&C 
CE 
C8EF 
C8F2 
C8F5 
C8F8 


EDEN DE DENEHE DEEE HE 


C8F9 
C8FC 
C8FD 
C900 
C902 
C903 
C905 


2153BE 
SE 
3E15 


CDSCCA 
3D 

23 

23 

A6 
118000 
213002 
3C 

19 

3D 
20FC 
EB 
CD98CA 
2A60BE 
018000 
C9 


CD1CC9 
D8 
3AUCBE 
E608 
C8 
3E13 
180D 


LD 
LD 
LD 


CALL 
DEC 
INC 
INC 
AND 
LD 
LD 
INC 
ADD 
DEC 
JR 
EX 
CALL 
LD 
LD 
RET 


:= début enreg 


HL, OBE53H 
E, CHL) 
A, 15H 


OCASCH 

À 

HL 

HL 

CHL) 

DE, 0080H 
HL, 0230H 
À 

HL, DE 

À 

NZ, OC8EAH 
DE, HL 
OCA98H 


HL, (OBE60OH) 


BC, 0080H 


. dans buffer secteur 


:buffer HS/US 

Head Select/Unit Select dans e 
;charger dns accu valeur bloc 
param.disc 15h 

snombre d'enregistrements par secteur 


; (numéro d'enregistrement) 

;: longueur d'enregistrement 128 octets 
;décalage par rapport buffer enreg. 
;correction nécessaire 

;calcule adresse du prochain enreg. 
:dans buffer secteur 


srésultat dans hl 

;de=de+iy, de => prochain enregistr. 
adresse buffer enreg,. dans hl 
:taille enreg. 128 octets dans bc 


lire registre d'état FDC, tester si DRIVE READY 


CALL 
RET 
LD 
AND 
RET 
LD 
JR 


OC91CH 

C 

À, (OBE4CH) 
08h 

pl 

À, 13H 
Oc914H 


:lire phase résultat FDC 

;=> aucune erreur apparue 

:registre d'état FDC 0 

:Drive Ready? 

;3=> Drive est READY 

;message d'erreur 13, Disc is missing 


HPONEEREEX lire registre d'état FDC, disquette protégée contre écriture 


C907 
C90A 
C90B 
C90c 
CO0F 
ca11 
C912 
cgtu 
c917 
c918 


CDFAC8 
D8 

CO 
3AUDBE 
E602 
C8 
3E12 
CD/ACA 
D8 
CAADC9 


CALL 
RET 
RET 
LD 
AND 
RET 
LD 
CALL 
RET 
JP 


OC8F 9H 

C 

NZ 

À, (OBEADH) 
02H 

Z 

À, 12H 
OCA7AH 

C 
Z,OC9ADH 


IT 


;phase résultat FDC, Drive READY? 
3=> tout est OK 


;sregistre d'état FDC 1 

:disquette protégée contr l'écriture? 
:=> n'est pas protégé 
;:mess.d'erreur12, Disc is write prot. 
:Drive dans c, sortir message, CIR 
;'Ignore' 

;'Cancel' => fin 


38:> 


C91B 


LÉSSSLLSÉESS ESS SES) 


C91C 
C91D 
C9IE 
C920 
C923 
C924 
C926 
C928 
C92A 
C92B 
C92D 
C92E 
C92F 
C930 
C931 
C933 
C934 
C936 
C938 
C93A 
C93C 
C93D 
C93E 
C940 
cgu1 
Cou2 
c9uz 
Cou 
C945 
C9u6 


LÉLÉE LS ES SSL L SL) 


C947 
C9u8 
C9uB 
C9uD 
C950 
C953 
C955 


C9 


ES 
D5 
1600 
214CBE 
ES 
ED78 
FECO 
38FA 
OC 
ED78 
OD 
77 
23 
14 
3E05 
3D 
20FD 
ED78 
E610 
20E8 
ET 
7E 
E6CO 
2B 
72 
D1 
ET 
CO 
37 
cg 


C5 
O17EFB 
3E08 
CDSCC9 
CD1CC9 
FE80 
20F4 


RET 


lit et place octets 


PUSH 
PUSH 
LD 
LD 
PUSH 
IN 
CP 
JR 
INC 
IN 
DEC 
LD 
INC 
INC 
LD 
DEC 
JR 
IN 
AND 
JR 
POP 
LD 
AND 
DEC 
LD 
POP 
POP 
RET 
SCF 
RET 


HL 

DE 

D, 00H 

HL, OBE4CH 
fl 

A, (C) 
OCOH 
C,0C924H 
C 

A, (C) 

C 

CHL), A 

AL 

D 

À, OSH 

À 

NZ, 0C933H 
À, (C) 

10H 

NZ, 0C924H 
HL 

À, CHL) 
OCOH 

HL 

CHL),D 

DE 

HL 

NZ 


3'Retry' 


de phase résultat FDC dans buffer 


snombre d'octets lus 
;adresse buffer phase résultat 


sregistre d'état FDC dans bc 
attendre jusqu'à ce que 

soctet d'état ready 

adresse registre données FDC dans bc 
:Interrupt-Statusregister 

adresse registre d'état FDC 

;: Sauvegarder dans (h1) 


;:compteur nombre octets retirés 
scourte boucle d'attente 


4 


:lire octet d'état 
:Bit FDC Busy 
3instruction pas encore terminée 


isoler code interr., bits 687 de SRO 


;:Sauver nombre octets phase résultat 


;erreur apparue! 


;sterminé sans erreur 


Sense Interupt Status FDC 


PUSH 
LD 
LD 
CALL 
CALL 
CP 
JR 


BC 

BC, OFB/EH 
À, 08H 
OC95CH 
0C91CH 
80H 

NZ, OC94BH 


sregistre d'état FDC 

;:code d'opér, Sense Interrupt Status 
envoyer accu au FDC 

:lire phase résultat FDC 

message ’INVALID COMMAND'? 

:Sinon essayer encore une fois 
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C957 
C958 


C1 
C9 


POP 
RET 


BC 


HHREREHKEEEEX charger dans accu octet du bloc param.disc (DPB) et sortir 
C95g CDSCCA CALL 


LÉELLLELLLSLLLS SE) 


C95C 
C95D 
C95E 
C960 
C961 
C963 
C964 
C966 
C967 
C968 


C969 
C96A 
C96B 
C96D 
C96E 
C970 
C971 
C972 
C974 
c975 


C976 
C979 
C97A 
C97B 
C97C 
C980 
C981 
C984 
C985 
C986 


OCASCH 


F5 PUSH AF 
F5 PUSH AF 
ED78 IN À, (C) 
87 ADD À, À 
30FB JR NC, OC95EH 
87 ADD A, À 
3003 JR NC, 0C969H 
F1 POP AF 
F1 POP AF 
C9 RET 

CLLLELESLSS LS SL) accu est transmis 
F1 POP AF 
OC INC C 
ED79 OUT (C),A 
OD DEC C 
3E05 LD À, 05H 
3D DEC À 
00 NOP 
20FC JR NZ, 0C970H 
F1 POP AF 
cg RET 

LÉLES LL ESS SELS EL] 
2276BE LD (OBE76H),HL 
E3 EX (SP},HL 
D5 PUSH DE 
C5 PUSH BC 
ED7364BE LD (OBE64H), SP 
ES PUSH HL 

21ADC9 LD 

E3 EX (SP), HL 
E5 PUSH HL 
D5 PUSH DE 
C5 PUSH BC 


C987 


;charger dans accu valeur DPB 


teste FDC, envoie accu à FDC s'il y a lieu 


valeur à sortir deux fois sur pile 
3Bit 7, tester Request for Master 


attendre que nouvel octet réclamé 
:Bit 6,direction données vers FDC 
:Test si entrée ou sortie 

;ne pas envoyer octet au controller, 
:FDC enverra octet au processeur 


au FDC 


:valeur à sortir de la pile 
sregistre données FDC dans bc 
;envoyer octet au FDC 

registre d'état FDC dans bc 
:courte boucle d'attente 

:compte à rebours accu de 5 à zéro 


:restaurer valeur dans accu 


moteur en marche, manipuler pile, (hl) sur buffer 1/0 


:Stockage provisoire 
:retirer adresse retour de la pile 
;:sauver bc et de 


3Sauver pointeur de pile 

;adresse retour à nouveau sur la pile 
HL,O0C9ADH ; 

:RETURN à nouveau -> h1,C9AD sur pile 

adresse RETURN sur pile définitivem. 

Sauver de, bc, af,un RET après cette 

routine conduit à C9AD! 
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C988 F5 PUSH ÂF ;pas simple, n'est-ce pas? 


C989 CDDFC9 CALL OC9DFH ;Del Ticker 

C98C 3ASFBE LD À, (OBESFH) :flag moteur 

C98F B7 OR À :tester 

C990 2014 JR NZ,OC9A6H ;Moteur tourne déjà 

C992 017EFA LD BC,OFA7EH  ;adresse port commande moteur 
C995 3E01 LD À, 01H 

C997 ED79 OUT (C),A :mise en marche moteur 

C999 EDSB4UBE LD DE, (OBE4UH) ;nombre de ticks 

C99D CDCDC9 CALL OC9CDH ;appeler add ticker, délai plein rég. 
C9AO 3ASFBE LD A, (OBESFH) ;flag moteur 

C9A3 B7 OR À tester 

CSAU 28FA JR Z, OC9ACH attendre que flag moteur <> 0 
C9A6 F1 POP AF sretirer af, bc, de de pile 
C9A7 C1 POP BC 

C9A8 D1 POP DE 

C9A9 2A76BE LD HL, (OBE76H) ;(h1) pointe sur buffer 1/0 
C9AC C9 RET :le prochain RET va en C9AD! 
LILLLLLSLLSLLLSSS 

C9AD ED/BG6UBE LD SP, (OBEG4HH) ;rangé ici pour C97C 

C9B1 F5 PUSH AF 

C9B2 EDSBUGBE LD DE, (OBE4G6H) ;snombre de ticks 

C9B6 CDCDC9 CALL OC9CDH appeler Add Ticker 

C9B9 F1 POP AF ; 

C9BA C1 POP BC :bc, de et hl ont été PUSHés 
CSBB D1 POP DE :vers C979 à C97B 

CBC EI POP HL 

C9BD 3E00 LD À, OCH 

C9BF D8 RET C 

C9CO 214CBE LD HL, OBEUCH 

C9C3 7E LD A, (HL) 

C9C4 E608 AND 08H 

C9C6 23 INC HL 

C9C7 B6 OR CHL) 

C9C8 F640 OR 40H 

C9CA 2B DEC HL 

C9CB 2B DEC RL 3(h1) => OBEUB 

C9cc cg RET 


LÉLÉLLLÉL ESS LL SL) 


C9CD 2167BE LD HL,OBE67H Adresse Tick Block 
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C9pO 


010000 


C9D3 C3E9BC 


LELLLEELLLSESSS) 


C9D6 
C9pg 
C9DA 
C9DB 
C9pC 
C9DD 
C9DF 
CSE2 


LILSS ES LIL ELLE LS) 


CES 
CSE8 
CŒA 
CIED 
CSEF 
CFO 
C9F3 


LELLELELELLLLXLE SE) 


COF4 
C9F7 
C9FA 
CSFD 
CA00 
CAO 
CA06 
CADA 
CAOB 
CACE 
CA11 
CA12 
CA15 
cA18 
CATA 
CA1B 
CAC 
CA1D 
CATF 


215FBE 
7E 

2F 

77 

B/ 
2806 
2167BE 
C3ECBC 


CDDFC9 
3E00 

O17EFA 

ED79 

AF 

325FBE 

C9 


212002 
11D001 
CDO3CA 
211002 
119001 
CD98CA 
ED5342BE 
D5 
CDSFCA 
22U0BE 
ES 
2143CA 
011900 
EDBO 
4B 

42 

ET 
3600 
23 


LD 
JP 


Routine 
LD 

LD 

CPL 

LD 

OR 

JR 

LD 

JP 


CALL 


LD 
OUT 
XOR 
LD 
RET 


BC, O00CH :Reload Count 


OBCE9H 3KL ADD TICKER 

Tick 

HL,OBESFH  ;:flag moteur 

A; CHL) z:est O ou ffh 
:devient ffh ou 0 

CHL), A :Sauvegarder 

À :si flag moteur zéro 


Z, OCSESH :=> moteur tourne 
HL,OBE67H ;sinon Adresse Tick Block 


OBCECH 3KL DEL TICKER, déclencher ticker 
moteur 
OC9DFH 
LD À, OOH 5 
BC,OFA7EH  ;port moteur 
(C),A srestaur flipflop moteur,moteur coupé 
À 


(OBESFH),ÀA ;annuler flag moteur 


organiser Disc Parameter Header et blocs DP 


LD 
LD 
CALL 
LD 
LD 
CALL 
LD 
PUSH 
CALL 
LD 
PUSH 
LD 
LD 
LDIR 
LD 
LD 
POP 
LD 
INC 


HL, 0220H :décalage pour DPH lecteur B 
DE,01D0H :décalage pour DPB lecteur B 
OCAO3H zsinitialiser DPH et DPB lecteur B 
HL,0210H :décalage pour DPH lecteur À 
DE, 0190H ;:décalage pour DPB lecteur A 


OCA98H ;:de=de+iy, début du DPB 
(OBE42H),DE ;ranger adresse 

DE et ranger sur la pile 

OCA9FH shl=hl+iy, début du DPH 
(OBE4OH),HL ;ranger également 

HL et sur la pile 


HL,OCA43H ; Adresse du DPB standard 
BC, 0019H 325 octets 
transfère à adresse correcte 


CE :ranger début zone cheksum dans bc 
B, D 

HL :début du DPH, soit XLT 

CHL), 00H conversion éventuelle facteur SKEW 
HL non utilisé, donc 0 
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CA20 
CA22 
CA25 
CA26 
CA29 
CA2C 
CA2D 
CA2E 
CA2F 
CA30 
CA31 
CA32 
CA33 
CA34 
CA35 
CA36 
CA37 
CA38 
CA39 
CA3A 
CA3D 
CA3E 
CA3F 
CAUO 
CAN 
CAU2 


LÉLELESL EE SELS) 


CAU3 
CAUS 
CAUG 
CAU7 
CAUB 
CAU9 
CAUB 
CAUD 
CAUF 


LRÉRÉS SSL LS SSL SE) 


CAUB 
CA53 
CASA 


3600 
110700 
19 
113002 
CD98CA 
73 

23 

72 

23 

D1 

73 

23 

72 

23 

71 

23 

70 

23 

EB 
211000 
09 

EB 

73 

23 

72 

C9 


2400 
03 
07 
00 
AAOO 
3F00 
CO00 
1000 
0200 


u1 
09 
2 


LD CHL) , OOH 

LD DE,0007H 

ADD HL, DE 3 (h1)=> DIRBUF 

LD DE, 0230H ;décalage 128 octets pour buffer DIR 
CALL OCA98H :de=det+iy, adresse du buffer DIR 
LD CHL),E sentrer dans DIRBUF 

INC HL 

LD CHL),D 

INC HE 

POP DE :début des DPBs 

LD (HL),E entrer dans le header 

INC HL 

LD CHL),D 

INC HL ;:(hl1)=> CSV, Checksum Vector 

LD CHL),C :(bc)=> adresse de zone checksum 
INC HL :entrer dans le header 

LD CHL),B 

INC HL 3(h1)=> ALV, Allocation Vector 
EX DE, HL :Stockage provisoire dans de 

LD HL, 0010H ;:décalage entre zone Checksum et 
ADD HL, BC ;:z0ne allocation 

EX DE, HL 3(h1)=> ALV 

LD (HL),E :entrer zone allocation dns le header 
INC HL 

LD CHL),D 

RET 


DPB standard bloc paramètres disque 


DEFW 24H :SPT enregistrements par piste 

DEFB 03H :BSH Block Shift 

DEFB 07H :BLM Block Mask 

DEFB OOH 3EXM Extent Mask 

DEFW OOAAH 3DSM nombre blocs libres -1 

DEFW 003FH 3DRM nombre entrées Dir -1 

DEFW 00C0OH 3ALO affectation Directory 

DEF 0010H 3CKS nombre d'entrées à contrôler 
DEFW 0002H 30FF décal, piste pour pistes système 


extensions des DPBs, pas prévu dans CP/M standard 


DEFB 41H décalage secteur pour reconn. format 
DEFB OH snombre secteurs/piste 
DEFB 2AH :longueur GAP3 pour Read/Write 
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CA55 52 DEFB 52H :longueur GAP3 pour formatage 


CA56 ES DEFB ESH soctet remplissage pour formatage 
CA5S7 02 DEFB 02H zoctets/secteur pour FDC, 512 octets 
CA58 Où DEFB o4H snombre enregistrements par secteur 
CA59 00 DEFB OCH strois mémoires provisoires 

CASA 00 DEFB 00H 

CASB 00 DEFB OH 


RROEREEEREX Charger dans accu Valeur DPB (A890h+(Drive*40h)+Accu) 
CAC E5 PUSH HE 
CA5D CD63CA CALL OCA63H 


CA60 7E LD À, CHL) :Accu =(Table+(drive*40h)+Accu) 
CA61 El POP HL 
CA62 C9 RET 


RRRRRRRRREE N] = Pointeur sur DPB actuel + accu 


CA63 DS PUSH DE 

CAG4 2AU2BE LD HL, (OBE42H) ;pointeur sur DPB lecteur 0 

CA67 1D DEC E :Head Select/Unit Select -1 

CA68 114000 LD DE, 0040H ;décalage des DPBs lecteur 0 et 1 
CA6B 2001 JR NZ,OCAGEH  ;saut si drive O actuel 

CA6D 19 ADD HL, DE déterminer début table lecteur 1 
CAGE SF LD E, À :Accu pointe sur octet voulu 

CA6F 19 ADD HL, DE :d=0, e=octet voulu 

CA70 D1 POP DE 

CA71 C9 RET 


RERERXEXEE 1h messages d'erreur Disc Controller on/off 


CA72 2A78BE LD HL, (OBE78H) ;ranger ancienne valeur dans L 

CA75 3278BE LD (OBE78H),A entrer nouvelle valeur 

CA78 7D LD AL transmettre ancienne valeur dns accu 
CA79 C9 RET 


ROOOERREEEEXE GS] autorisé, Sortir message d'erreur 


CA7A F5 PUSH ÂF numéro d'erreur dans accu 

CA7B 3A78BE LD A, (OBE78H) ;Flag pour messages d'erreur 

CA7E B7 OR A ;:tester 

CA7F 2005 JR NZ,OCA86H ;=> pas de sortie autorisée 

CA81 F1 POP AF répéter numéro d'erreur 

CA82 u4B LD C,E numéro lecteur pour sortie dans C 
CA83 C3B8CA JP OCAB8H sortir message système, C, I or R 


- Il 4 - 


HRRRRRERAREMEEE Fin pas de sortie autorisée 


CA86 
CA87 
CA88 


LELSLLLLE LS ESS: 


CA89 
CA8A 
CA8B 
CA8C 
CA8D 
CARE 
CA8F 


LÉELSÉESSÉSS LISE SSZ: 


CA9O 
CA92 
CA93 
CA9& 
CA95 
CA96 
CA97 


REED DEMO NE 


CA98 
CASA 
CA9B 
CA9C 
CA9D 
CAE 


HOMME DEN He 


CA9F 
CAAO 
CAA2 
CAA3 
CAAU 
CAAS 


HHECHCHOHE EEE NE EH 


CAAG 
CAA8 


F1 
AF 
C9 


FF 
FF 
FF 
FF 
FF 
FF 
FF 


FDES 
E3 
09 
ul 
HD 
ET 
C9 


FDES 
E3 
19 
EB 
ET 
C9 


D5 
FDES 
D1 
19 
D1 
C9 


FE61 
D8 


POP 
XOR 
RET 


AF 
À 


annuler accu et flags 


inutilisé Jusqu'à ca90 


RST 
RST 
RST 
RST 
RST 
RST 
RST 


BC = BC 
PUSH 

EX 

ADD 

LD 

LD 

POP 

RET 


DE = DE 
PUSH 

EX 

ADD 

EX 

POP 

RET 


HL = HL 
PUSH 
PUSH 
POP 
ADD 
POP 
RET 


38H 
38H 
38H 
38H 
38H 
38H 
38h 


+ IY 

IY 
(SP), HL 
HL, BC 
B,H 

CL 

HL 


+ IY 

IY 
(SP), HE 
HL, DE 
DE, KL 
HL 


+ IY 
DE 
IY 
DE 
AL, DE 
DE 


3iy dans hl, hl sur pile 
ajouter bc et hl 
résultat dans bc 


:restaurer hl 


:iy dans hl, hl sur pile 
:ajouter de et hl 
résultat dans de 
:restaurer hl 


3iy dans de 
:ajouter hl et de 
srestaurer de 


convertir minuscules en majuscules 


CP 
RET 


61H 
C 


;'a' ou supérieur? 


S FES 


CAA9 
CAAB 
CAAC 
CAÂE 


OROHOOHOHO HR E 


CAAF 
CABO 
CABI 
CAB2 
CAB3 
CAB4 
CABS 
CAB7 


HERO HERMIONE 


CAB8 
CABB 
CABD 
CACO 
CAC3 
CACS 
CAC 
CACB 
CACE 
CADO 
CAD2 
CAD 
CADS 
CAD7 
CAD 
CADB 
CADD 
CAEO 





ARR HEHONOUOE HE HE 


CAE2 


REED 


CAE3 
CAEG 
CAE9 


FE7B 
DO 
CG6EC 
C9 


AF 
12 
13 
OB 
78 
Bi 
20F8 
C9 


CDEBCA 
3E14 
CDEBCA 
CDO9BB 
38FB 
CD81BB 
CDO6BB 
CDAGCA 
FE43 
2811 
FE49 
37 
280€ 
FE52 
2807 
3E07 
CDSABB 
18E6 


B7 


CDSABB 
CD84BB 
3E00 


CP 7BH :'z!' où inférieur? 

RET NC 

ADD À; OEOH :convertir en majuscules 
RET 


vider mémoire (de) à (de)+(bc) 


XOR À annuler accu 

LD (DE), A :Vider mémoire 

INC DE 3prochaine adresse 
DEC BC diminuer nombre 

LD A,B stester si bc = 0 
OR C 

JR NZ,OCAAFH  ;vide (de) à (de+bc) 
RET 





sortir erreur dans À, puis tester ‘IGN, RET, CHAN’ 





CALL OCAEBH ;:sortir message système dans a 
LD A, 14H :message système 20 

CALL OCAEBH ;chercher et sortir 

CALL OBBOSH 3KM READ CHAR 

JR C, OCACOH 

CALL 0OBB81H 3TXT CUR ON 

CALL OBBO6H 3KM WAIT CHAR 

CALL OCAAGH ;convertir en majuscules 
CP u3H 3'C' = Cancel 

JR Z, OCAEZH 3=> Z=1,C=0 

CP LH ;'I" = Ignore 

SCF 3=> 1=1,0:1 

JR Z, OCAE3H 

CP 52H 3'R' =Retry 

JR Z,OCAE2H 3=> 1=0,C=0 

LD À, 07H ;caractère "BELL' 

CALL OBB5AH 3TXT OUTPUT, un bip 

JR OCAC8H :attendre nouvelle entrée 





Entry Retry, annuler flags 
OR À 


Entry Cancel et Ignore, sortir caractère dans accu 


CALL OBBSAH 3TXT OUTPUT 
CALL OBB84H 3TXT CUR OFF 
LD À, OOR :sortir ‘CR/LF' 


Ts 


RRRRRRREREEEEXX MESSAGE SYSTEME, chercher message système et sortir 


CAEB 
CAEC 
CAED 
CAEE 
CAFO 
CAF3 
CAF4 
CAFS 


LELLS SSL RS ESS ES 


CAF7 
CAF8 
CAF9 
CAFA 
CAFC 


ÊS 

C5 

F5 
E67F 
2186CB 
47 

où 
1805 


7E 
23 
3C 
20FB 
10F9 


PUSH 
PUSH 
PUSH 
AND 
LD 
LD 
INC 
JR 





ignorer 
LD 

INC 

INC 

JR 

DUNZ 


HL 

BC 

AF 

7FH annuler bit du numéro d'erreur 
HL,0CB86H  :hl pointe sur mess.système et erreur 
B, A :numéro d'erreur dans b 

B augmenter d'un, est immédiatement 
OCAFCH :diminué à nouveau lors de DIJNZ 
messages jusqu'au message voulu 

À, (HL) un caractère du message dans accu 
HL augmenter pointeur 

A teste si fin d’un message 
NZ,OCAF/H ;si pas fin, continuer recherche 
OCAF7H ;:b<>0 ignorer prochain message 
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RAOONONERREXEX SOTTIr message voulu 


CAFE 7E LD A, CHE) zun caractère du message dans accu 
CAFF 23 INC HL augmenter pointeur 

CBOO FEFF CP OFFH :fin du message atteinte? 

CBO2 280B JR Z, OCBOFH :si oui, alors saut 

CBO4 E5 PUSH HE 

CBOS DS PUSH DE 

CBO6 C5 PUSH BC 

CBO7 CD13CB CALL OCB13H ;:continuer test car. dans a et sortir 
CBOA C1 POP BC 

CBOB D1 POP DE 

CBOC E1 POP HL 

CBOD 18EF JR OCAFEH sretirer prochain caractère 


RROOREREEXEX message Sorti, terminé 


CBOF F1 POP AF 
CBIO C1 POP BC 
CBi1 E1 POP HL 
CB12 C9 RET 


RROOORREEEEEE Continuer test caractère et sortir 


CB13 B7 OR Â :tester caractère dans accu 

CB14 F266CB JP P,OCB66H sinférieur 80h, alors à la sortie 
CB17 FEFE CP OFEH ;chaîne pour numéro de lecteur 

CB19 2846 JR Z, OCB61H ;:convert, No lecteur en A/B et sortir 
CBI1B FEFC CP OFCH ;:chaîne pour variable numérique 

CB1D 281A JR Z, OCB39H ;:déterminer variable et sortir 

CB1F FEFD CP OFDH ;chaîne pour nom de fichier 

CB21 20C8 JR NZ,OCAEBH  ;sortir chaîne extens, messag système 
CB23 0608 LD B, 08H nom de fichier a 8 caractères 

CB25 CD2FCB CALL OCB2FH :localiser dans mémoire et sortir 
CB28 3E2E LD À, 2EH FRE 

CB2A CD83CB CALL OCB83H 3sortir 

CB2D 0603 LD B, 03H extension a trois octets de long 
CB2F 13 INC DE :de pointe sur position en mémoire 
CB30 A LD À, (DE) caractère dans accu 

CB31 E67F AND 7FH annuler bit 7 

CB33 CD83CB CALL OCB83H ssortir 

CB36 10F7 DJNZ OCB2FH snombre - 1, prochain caractère 

CB38 C9 RET 
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LED SL ÉESÉRSLELLS SE] 


CB39 EB EX DE, HE ;de pointe sur nom de fichier 


CB3A 1620 LD D, 20H 3" #, caractère espace 
CB3C 019CFF LD BC, OFF 9CH 

CB3F CD4DCB CALL OCB4DH 

CB42 01F6FF LD BC, OFFF6H 

CB4S CD4DCB CALL OCB4DH 

CB48 7D LD AL 

CB4Q C630 ADD À, 30H ;décalage pour chiffre ASCII 
CBUB 1836 JR OCB83H ssortir 

LÉELSLLLLLLSLSERS 

CB4D 3EFF LD À, OFFH 

CBUF ES PUSH HL 

CB50 3C INC À 

CB51 09 ADD HL, BC 

CB52 3004 JR NC, OCB58H 

CB54 E3 EX (SP),HL 

CB55 El POP HL 

CB56 18F7 JR OCB4FH 

LELLLSLLRLSLLESS ES 

CB58 El POP HE 

CB59 B7 OR A ;zér0 dans accu? 

CB5A 2802 JR Z,OCB5EH zalors sortir espace 
CB5C 1630 LD D, 30H :décalage pour chiffre ASCII 
CBSE 82 ADD A, D 

CB5F 1822 JR OCB83H 3sortir 

LELELLSLLSLESES ES) 

CB61 79 LD A C numéro de lecteur O où 1 
CB62 C64 ADD A, 41H ajouter ‘A’ 

CB6U 181D JR OCB83H :sortir ‘A’ ou 'B' 


RAOEEEEREHEEX Sortir caractère dans la fenêtre dans position curseur 


CB66 F5 PUSH AF ;Sauvegarde provisoire caractère 
CB67 FE20 CP 20H ;caractère espace? 

CB69 2017 JR NZ,OCB82H  ;alors sortir directement 

CB6B ES PUSH HE 

CB6C DS PUSH DE 

CB6D CD69BB CALL OBB6SH 3TXT GET WINDOW 

CB70 CD78BB CALL OBB7 8&#H 3 TXT GET CURSOR 
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CB73 7A LD 

CB74 D604 SUB 
(B76 3F CCF 
CB77 3001 JR 

(B/9 BC CP 

CB7A D1 POP 
(B/B El POP 
CB/C 3004 JR 

(BE F1 POP 
CB7F C3E9CA JP 

CLLLELELLLLLLSE SE] 

CB82 F1 POP 
CB83 C35ABB JP 


LELLLL SSL SELLE LS) messages d'erreur / 


A D :d contient colonne droite fenêtre 
O4H 

NC, OCB7AH 

H sh contient colonne curseur 

DE 

HE 

NC, OCB82H 

AF 

OCAESH ssortir ’CR/LF' 

AF caractère à nouveau dans accu 
OBB5AH 3TXT OUTPUT 


messages système 


EEE DE DEEE DH DEEE DE message système 0 


CB86 OD OA FF 


MAO ONNNNEÉ MESSATE 


CB89 20 20 20 FF 


LLLLL ELLES ELLE LES) message 


CB8D FC 4B FF 


CELLES LLL LL LLLZS) message 


CB90 97 82 20 66 72 65 
CB98 FF 


LLLELLELS SSL LE, ) message 


CB99 80 42 61 64 20 63 
CBAT 6D 61 6E 64 80 FF 


LERELS SES ES LES LS) message 


CBA7 9B 61 6C 72 65 61 
CBAF 20 65 78 69 73 74 
CBB7 FF 


LES ELLES SSL SSL S SE) message 


CBB8 9B 6E 6F 74 20 66 
CBCO 6E 64 80 FF 


système 


système 


système 
65 97 


système 
6F 6D 


système 
64 79 
73 80 


système 
6F 75 


CR/LF 


_ 


sortir trois espaces 


2 
‘variable numérique’K 
3 
“CR/LF''CR/LF' ‘variable num. K’ 
free 
n 
"CR/LF'Bad command'CR/LF' 
5 
CR/LF Filename’ already exists 
6 


“CR/LF Filename’ not found 
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PRE MES SAC 


CBC4 95 64 69 72 65 63 
CBCC 72 79 20 9A FF 


PRE MESSATE 


CBD1 98 JA FF 


RE OORRÉ MESSATE 


CBD4 98 63 68 61 6€ 67 
CBDC 2C 20 63 6C 6F 73 
CBE4 67 20 FD 80 FF 


LÉELELESS SR SSSR S ES) mes sage 


CBE9S 9B 69 73 20 9D 20 
CBF1 6C 79 80 FF 


PR OOONONONE MES SAT 


CBF5 FD FF 


OIIIIHÉE MOSSATE 


CBF7 95 75 73 65 72 FC 


PRE X MESSATE 


CBFF 2E 2E 2E 5E 43 FF 


PE OOONNNE MESSATE 


CCOS 96 43 50 2F 4D 80 


RRRRRRRRRRRREEE MESSAUE 


CCOC 96 62 6F 6F 74 20 
CC14 63 74 6F 72 80 FF 


RE MESSATE 


CC1A 95 SD 99 FF 


A MESA 


CC1E 95 9C 99 FF 


AE EAN MESSAUE 


CC22 98 69 73 20 9C 20 
CC2A 6F 74 65 63 74 65 
CC32 FF 


système 
74 6F 


système 


système 
65 64 
69 6E 


système 
6F 6E 


système 


système 
80 FF 


système 


système 
FF 


système 


73 65 


système 


système 


système 
70 72 
64 80 


7 
"CR/LF Drive A/B' directory ‘full’ 
8 
*CR/LF Drive A/B Disc’ ‘full CR/LF' 
9 
CR/LF Drive A/B Disc’ changed, 
closing ‘Filename’ ’CR/LF'’ 
A 
"CR/LF Filename’ is ‘read’ only 
B 
‘Filename’ 
C 
"CR/LF Drive A/B' user 
‘variable numérique” 
D 
0 
E 
CR/LF failed to load’ CP/M ‘CR/LF' 
F 
!CR/LF failed to load’ boot sector 
!CR/LF" 
10 
"CR/LF Drive A/B' ‘read’ ‘ fail 
CR/LF" 
11 
!CR/LF Drive A/B' ‘write’ ‘ fail 
CR/LF’ 
12 
*CR/LF Drive A/B disc is ‘write’ 
protected ’CR/LF' 
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LÉSLÉLSSLSSSEE EX) message système 13 
CC33 98 6D 69 73 73 69 6E 67 ‘CR/LF Drive A/B disc ‘missing 
CC3B 80 FF'CR/LF' !CR/LF' 


LLÉLLSS SSSR S ESS SE) message système 14 

CC3D 80 52 65 74 72 79 2C 20 ‘CR/LF' Retry, Ignore or Cancel? 
CCUS 49 67 6E 6F 72 65 20 6F 

CCUD 72 20 #* 61 6E 63 65 6C 

CC55 3F 20 FF 


a 


HE HOHOH EH HEC message système 5 
CC58 80 44 72 69 76 65 20 FE !CR/LF' Drive ‘A/B': 
CC6O 3A 20 FF 


CLLLLSÉSSLSEÉSSS ESS message système 16 

CC63 80 46 61 69 6C 65 64 20 ‘CR/LF' Failed to load 
CC6B 74 6F 20 6C 6F 61 64 20 

CC73 FF 


HOPOPNNUNEE MESSAE Système 17 
CC74 80 80 FF CR/LF' 'CR/LF' 


HRNONNNNRX message système 18 
CC77 95 64 69 73 63 20 FF "CR/LF Drive A/B' disc 





LELLLLELLELL EEE: message système 19 
CC7E 20 66 61 6C 80 FF fail "CR/LF' 





CLLELELÉESSS SERRE) message système 1Â 
CC85 66 75 6C 6C 80 FF full 'CR/LF’ 


RRHOOORREREE message Système 1B 
CC8B 80 FD 20 FF !CR/LF' ‘Filename’ 


RRERRREX message système 1C 
CC8F 77 72 69 74 65 FF write 





CILLSSLÉELSS SES ES message système 1D 


CC95 72 65 61 64 FF read 
CCOA FF RST 38H 
CC9B FF RST 38h 
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CCC 
CC9D 
CCSE 
CCSF 


LÉSÉSSLS LS ESS RE) 


CCAO 
CCAI 
CCA4 
CCA7 
CCA8 
CCAB 
CCAE 
CCB2 
CCB5 
CCB8 
CCBB 
CCBE 
CCCO 
CCc1 
CCC3 
CCC& 
CCC6 
CCC7 
CCCA 
CCCB 
CCCD 
CCDO 


LÉRÉÉRSRSSSELLLLLS ES) 


CDEUCC 


CCD 
CCD4 


HORMONE DE HE DH HE JE 


2177BC 
0607 
CDE9CC 
DO 
219BBC 


CCD5 
CCD8 
CCDA 
CCDD 
CCDE 
CCE1 
CCE2 


FF 
FF 
FF 
FF 


AF 


FD7700 
FD/701 


3D 


FD/708 
FD772C 
FD227DBE 
2177BC 
116401 
CD98CA 
012700 
EDBO 


EB 


3630 


23 


36CD 


25 


CD12B9 


77 


3EC9 
327FBE 


AF 


DO 


O4 


1805 


RST 38h 
RST 38h 
RST 38H 
RST 38H 


détourner tous les vecteurs cassette pour le disque 
XOR À 








LD CIY+00H),A ;Drive et User sur défaut AO 

LD (IY+01H), A 

DEC À 3:ACCU = ffh 

LD (IY+O8H),A ;flag OPENIN actif sur inactif ffh 
LD CIY+2CH),A ;flag OPENOUT actif sur inactif ffh< 
LD (OBE7DH), IY 

LD HL,0BC7/7H ;vecteurs cassette 

LD DE,0164H ; Sauvegarder 

CALL OCA98H :de=de+iv, mempool + 164h 

LD BC, 0027H :13*3 octets = 13 vecteurs 

LDIR ; 

EX DE,HL 

LD CHL), 30H :0CD30H est l'adresse d'entrée pour 
INC HL :toutes les entrées CAS détournées 
LD CHL), OCDH 

INC HL 

CALL 0B912H 3KL ASC CURR SELECTION, numéro de la 
LD CHL), A :Rom disque comme 3ème octet pour RST 
LD À, OCH :Code pour Return 

LD (OBE7FH),A ; 

XOR À 

DISC 

CALL OCCEUH :Disc Out 

RET NC erreur apparue alors RET 

DISC IN 

LD HL,0BC7/H  ;Cass In Open 

LD B, 07H : détourner Cass In Open et les 

CALL OCCE9H Six entrées suivantes 

RET NC 

LD HL,0BC9BH  ; Catalog 

INC B 

JR OCCE9H détourner Catalog 
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PR OEREREX DISC OUT 


CCE4 
CCE7 


LLLELLEESLELLL,) 


CCE9 
CCEA 
CCEC 
CCEF 
CCF2 
CCFA 
CCF5 
CCF6 
CCF7 
CCF8 
CCF9 
CCFB 
CCFC 


LELELELLLLLLISL)) 


CCFD 
CDO0 


LELLLLIL LL SL LS ESS) 


CDO1 
CDO4 
CDO7 
CDOA 
CDOD 
CDOE 
CD11 
CD14 
CD16 


CLS SEL LILI SELLE LS) 


CD18 
CD1B 
CDIE 
CD21 
CD22 
CD24 
CD27 


218CBC 
0605 


B7 
203F 
118B01 
CD98CA 
36DF 
23 

75 

23 

72 

23 
10F7 
37 

cg 


CD18CD 
DO 


216401 
1177BC 
011500 
CD21CD 
DO 
218801 
119BBC 
0E03 
1809 


217901 
118CBC 
010F00 
B7 
2007 
CD9FCA 
EDBO 


LD 
LD 


OR 
JR 
LD 
CALL 
LD 
INC 
LD 
INC 
LD 
INC 
DUNZ 
SCF 
RET 


HL, OBC8CH ;Cass Out Open et les quatre entrées 
B, O5H suivantes 


Â est-ce que des paramètres suivent? 
NZ,O0CD2BH ;si oui alors saut 
DE, 018BH :Sinon détourner vecteurs voulus 


OCA98H :de=de+iy, discmem + 18bh 
CHL),0DFH ;Restart 3 

HL 

CHL),E :les entrées pointent toutes 
HL ;vers A88Bh 

(HL),D 

HL 

OCCF2H 


TAPE, restaurer vecteurs cassette 


CALL 
RET 


TAPE IN 
LD 

LD 

LD 

CALL 
RET 

LD 

LD 

LD 

JR 


0CD18H srestaurer Tape Out 

NC erreur apparue, alors RET 
HL,0164H 

DE, 0BC7/7H 


BC, 00154 :7 vecteurs tous Tape In 
OCD21H 


TAPE OUT 


LD 
LD 
LD 
OR 
JR 
CALL 
LDIR 


NC erreur apparue 

HL,0188H 

DE, OBC9BH 

C, 03H sun vecteur Cass Catalog 
OCD21H 

HL,0179H 

DE, OBC8CH 

BC, OOOFH 35 vecteurs tous Tape Out 
À est-ce que des paramètres suivent? 
NZ,0CD2BH  ;alors sortir erreur 
OCA9FH shl=hl+iy 
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CD29 37 
CD2A C9 


LES SSS SSSR RS LE) 


CD2B 3E04 
CD2D C3EBCA 


LRSÉRS ESS SSSR S LS ES) 


CD30 FD2A7/DBE 
CD34 F3 
CD35 08 
CD36 D9 
CD37 79 
CD58 D1 
CD39 C1 
CD3A Ei 
CD3B E3 
CD3C C5 
CD3D DS 
CD3E 4F 
CD3F 067F 
CD4T 11D210 
CD44 19 
CD4S E5 
CD46 D9 
CD47 08 
CD48 FB 
CD49 C37FBE 


LRSRLLLSRELELS LS) 


D4C  C3AFCE 
D4F  C3B6DI 
D52 C3BCDI 
D55 C364CF 
D58 C3F5CF 
D5B C369D0 
DSE C365D0 


NDINNDNNnnm 


CD61 
CD64 
CD67 


C337CF 
C3D8D1 
C3C2D1 





SCF sfixer Carry comme marque que OK 
RET 

LD A, O4H message système 4, ‘BAD#COMMAND' 
JP OCAEBH ;chercher et sortir 


est appelé par toutes les entrées CAS au moyen de RST3 





LD IY,(OBE7DH) ;début de mémoire pour disque dans iy 
DI nécessaire pour utilisation du 

EX AF,AF' :jeu de registres alternatif 

EXX 

LD A, C ;:contenu de c est variable 

POP DE adresse de retour dans de 

POP BC :POPer deux autres RETS 

POP HL 

EX (SP), HL ;:ce RET doit remonter 

PUSH BC :bc et RET original à nouvau sur pile 
PUSH DE 

LD C,À :restaurer c et b 

LD B, 7FH 

LD DE, 10D2H :augmenter adresse RET de 10D2h 

ADD HL, DE :et comme nouvelle adres.RET sur pile 
PUSH HL :RET pointe alors dans table suivante 
EXX répéter Jeu de registre original 

EX AF,AF' 

EI :les INTS sont à nouveau autorisées 
JP OBE7FH sil y a 1à un RET! 

bloc de jump pour les entrées CAS/DISC détournées 

JP OCEAFH 3DISC IN OPEN 

JP 0D1B6H 3DISC IN CLOSE 

JP OD1BCH 3DISC IN ABANDON 

JP OCF64H 3DISC IN CHAR 

JP OCFFSH 3DISC IN DIRECT 

JP ODO6SH 3DISC RETURN 

JP 0DO65H 3DISC TEST EOF 

JP OCF37H :DISC OUT OPEN 

JP 0D1D8H 3DISC OUT CLOSE 

JP 0D1C2H 3DISC OUT ABANDON 
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CD6A C38FD0 
CD6D C3D8D0 


CD70 C313D5 


LELLLSLESSELZSET) 


CD73 CD/7CD 
CD76 C9 


EH DE DE DE DEN DE DE HE DE EDEN 


CD77 E5 
CD78 210600 
CD7B 39 
CD7C FD7506 
CD7F FD/7407 
CD82 F1 
CD83 C9 


JP ODO8FH 3DISC OUT CHAR 
JP ODOD8H 3DISC OUT DIRECT 
JP 0D513H 3DISC CATALOG 


augmenter pointeur de pile et dans discmem+6 


CALL OCD77H snécessaire pour correction de pile 

RET 

pointeur de pile dans discmem+6 

PUSH HL 

LD HL, 0006H deux CALLS et le PUSH HL = 6 octets 
ADD HL, SP :pile corrigée comme il faut dans hl 
LD (IY+06H),L ;et dans discmem+6 

LD (IY+07H),H ;et ranger discmem+7 

POP HL 

RET 


RRCOHERREEXEXE Sauvegarder pile, Si OPENIN pas actif, alors interruption 


CD84 CD77CD 
CD87 F5 
CD88 FD/E08 
CD8B 1807 


CALL OCD77H ;Savegarder pointeur de pile 
PUSH AF 

LD A, (IY+08H) ;flag OPENIN actif 

JR OCD94H 


RERREHEEEEE Sauvegarder pile, si OPENOUT pas actif, alors interruption 


CD8D CD/7CD 
CD9O F5 
CD91 FD/E2C 
CD94 FEFF 
CD96 2812 
CD98 CDI6CE 
CD9B F1 
CDaC C9 


LRÉLELSSELSSLS SE: 


CD9D FD7E08 
CDAO 1803 


LÉLSLSL SEL LL ESS) 


CDA2 FD/E2C 
CDAS CD/7CD 
CDA8 3C 


CALL 0CD77H :Sauvegarder pointeur de pile 

PUSH AF 

LD A, (IY+2CH) ;flag OPENOUT actif 

CP OFFH fichier pas ouvert? 

JR Z, OCDAAH :=> interruption 

CALL OCE16H :Si nécessaire Login, détermin format 
POP AF 

RET 


interruption si OPENIN actif 
LD A, (IY+08H) ;flag OPENIN actif 
JR OCDASH 


interruption si OPENOUT actif 


LD A, (IV+2CH) ;flag OPENOUT actif 
CALL OCD77H Sauvegarder pointeur de pile 
INC A :flag est ffh, si pas actif 
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CDA9 
CDAA 
CDAC 
CDAD 


C8 
3E0E 
B7 
180À 


LÉSSSS SSSR SSSR SL) 


CDAF 3EO04 
CDB1 CDCADB 
CDB4 C60C 
CDB6 F680 
CDB8 BF 


LÉLÉLSLSÉESS LISE SX) 


CDB9 FD6E06 
CDBC FD6607 
CDBF F9 
CDCO C9 


LÉSÉLLÉSÉESS LES) 


CDC1T 3D 


LÉLLELLLEL LEE) 


CDC2 3D 
CDC3 C8 
CDC4 C3AFCD 


LÉSÉSLELLLSL LS SZ) 


CDC7 CDCFCD 
CDCA 46 
CDCB 23 
CDCC C3F9DB 


LÉRRÉRLSSSSS RES S SE: 


CDCF  DD6E00 
CDD2 DD6601 
CDD5 DD23 
CDD7 DD23 
CDDS cg 


LÉLÉSRELLISSSISS SES: 


CDDA AF 
CDDB 1802 


RET Z 

LD À, OEH 

OR Â 

JR OCDBSH 
sortir Bad command, 
LD A, O4H 

CALL ODBCAH 

ADD A, OCH 

OR 80H 

CP À 


:=> n'était pas actif, tout est OK 
snuméro d'erreur dans accu 

annuler flag Carry, marque erreur 
srestaurer pile, interrompre instru. 


interrompre instruction 

:Message système 4, ‘Bad command’ 
numéro d'erreur dans accu 

:pas de message d'erreur jusqu'ici 
annuler Carry, marque erreur 


interrompre instruction 


srestaurer pointeur de pile 


LD L, (IY+06H) 
LD H, CIY+07H) 
LD SP, HL 

RET 


teste si accu 


DEC A 

teste si accu = 
DEC À 

RET [A 

JP OCDAFH 


et retour 


2, Si non, interruption et ‘Bad Command' 


1, si non, interruption et ‘Bad Command’ 


=> ACCU est zéro 
:sortir Bad command, interrompre 
;instruction 


amène longueur chaîne dans b, adresse chaîne dans hi 


CALL OCDCFH amener un paramètre dans hl 

LD B, CHL) ; longueur de la chaîne 

INC HE ;3(h1) => adresse de la chaîne 

JP ODBF 9H 3LD HL, CHL) 

amener un paramètre d'extension d'instruction dans hl 
LD L, (IX+00H) ;octets faible et 

LD H, C(IX+01H) ;fort du param. à transmettre dans hl 
INC IX six sur paramètre suivant éventuel 
INC IX 

RET 

A: 

XOR À :Accu sur 0, valeur pour lecteur A 
JR OCDDFH 
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LES RES S SSL ESS SES) 1B: 
D: 


CDDD 


CDDF 
CDE2 


REED NH JEUNE EEE 


CDE4 
CDE7 
CDEA 
CDED 
CDEE 
CDF1 
CDF2 
CDF5 
CDF7 
CDFA 
CDFD 


HOHHEDE DE EDEN DE DEEE DEN 


CDFE 
CEO1 
CEO4 
CEO7 
CEOA 
CEOD 
CE10 
CE13 


LÉRLELES SL SL LL) 


CET4 
CE15 
CE16 
CE17 
CE18 
CE19 
CETA 
CETB 
CE1D 
CE20 
CE21 
CE23 
CE26 


3E01 


CD73CD 
1813 


CD73CD 
CDC2CD 
CDC7CD 
05 
C2AFCD 
7E 
CDAG6CA 
D641 
CD16CE 
FD7700 
C9 


CD73CD 
CDC2CD 
CDCFCD 
111000 
CDF3DB 
D2AFCD 
FD7501 
C9 


DA 
03 

ES 

D5 

c5 

F5 

4 
1EFF 
FD7E08 
B9 
2808 
FD7E2C 
B9 


LD 
CALL 
JR 


IDRIVE 
CALL 
CALL 
CALL 
DEC 
JP 
LD 
CALL 
SUB 
CALL 
LD 
RET 


[USER 
CALL 
CALL 
CALL 
LD 
CALL 
JP 
LD 
RET 


LD 
INC 
PUSH 
PUSH 
PUSH 
PUSH 
LD 
LD 
LD 
CP 
JR 
LD 
CP 


À, OTH 
OCD75H 
OCDF7H 


OCD73H 
OCDC2H 
OCDC7H 

B 

NZ, OCDAFH 
A, (HL) 
OCAAGH 

HTH 

OCE16H 
(CIY+00H), À 


OCD73H 
OCDC2H 
OCDCFH 

DE, 0010H 
ODBF3H 

NC, OCDAFH 
CIY+01H),L 


À, (BC) 

BC 

HL 

DE 

BC 

AF 

C,A 
E,OFFH 

À, (IY+08H) 
C 
Z,0CE2BH 
À, CIY+2CH) 
C 


;:Accu sur 1, valeur pour lecteur B 
;Sauvegarder pointeur de pile 
stransmettre valeur au DOS 


:Sauvegarder pile 
:1 param.à suivre sinon ‘Bad command 
:retirer paramètre 


3Sortir Bad command, interrompre instr 
marque lecteur voulue (A/B) dns accu 
:convertir en majuscules 

:donne O0 ou 1 

Login 

; transmettre No lecteur au DOS 


:Sauvegarder pile 

:1 param.à suivre sinon ‘Bad command" 
:amener paramètre dans hl 

numéro User maximal + 1 

sde = hl?, numéro User légal? 

strop grand, ‘Bad command’, interrup. 
;transmettre numéro User au DOS 


premier caractère extens, nom 
:de fichier, numéro lecteur 


:No lecteur lecteur appelé 

sffh = OPEN actif sur lecteur appelé 
;:flag OPENIN actif 

:Sur ce lecteur? 

3=> OPENIN actif 

:flag OPENOUT actif 

:Sur ce lecteur? 
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CE27 
CE29 
CE2B 
CE2C 
CE2D 
CE30 
CE31 
CE32 
CE33 
CE54 
CE37 


CE3A 
CE3D 
CE4O 
CEU3 
CEut 
CEUS 
CEUG 
CEU7 


LELLLLLLELSS LS) 


CEU8 
CEUB 
CEUE 
CEUF 
CE52 
CE53 


2802 
1E00 
D5 

C5 
CDFOC4 
Ci 

Di 

7C 

B5 
CAAFCD 
FD/503 


FD7404 
FD7305 
FD7102 
F1 
C1 
Di 
Ei 
C9 


215000 
CDSACE 
E5 
114200 
19 
3680 


JR 
LD 
PUSH 
PUSH 
CALL 
POP 
POP 
LD 
OR 
JP 
LD 


LD 
LD 
LD 
POP 
POP 
POP 
POP 
RET 


Z,O0CE2BH 3=> OPENOUT actif 


E, OH ;:00h = pas OPEN actif sur lecteur 

DE :appelé 

BC 

OC4FOH ;teste No lecteur,déterm. format disc 
BC 

DE 

AH ;teste hl sur 0000 

L :Si hl = 0000,alors lecteur pas READY 


Z,OCDAFH ;sortir Bad command, interrompre instr 
CIY+03H),L ;(h1) => Disc Parameter Header 
: (a910/a920) 
(IY+04H),H ;dans iy+3/iy+4 
(IY+05H),E :;flag, si OPEN actif sur lectr appelé 
(IY+02H),C ;:numéro lecteur CHS/US) 
AF 
BC 
DE 
HE 


copie nom fichier étendu dans bloc header OPENIN 


LD 
CALL 
PUSH 
LD 
ADD 
LD 


HL, 0050H :décalage par rapp.bloc header OPENIN 
OCESAH 

HL 

DE, 0042H 

HL, DE 

CHL), 80H 
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CE55 
CE56 


LES SSSR SELS SES S. 


CES7 
CESA 
CESB 
CESC 
CESF 
CE61 
CE62 
CE63 
CE64 
CE65 
CE66 
CE67 
CE68 
CE69 
CEGA 
CE6B 
CE6C 
CE6F 
CE70 
CE73 
CE74 
CE75 
CE76 
CE77 
CE78 
CE7B 
CE7D 
CE7E 
CE7F 
CE80 
CE83 
CE84 
CE86 
CE87 
CE88 
CE89 
CE8A 
CE8B 


Eî 
C9 


219A00 
C5 

D5 
CD9FCA 
3600 
23 

73 

23 

72 

23 

73 

23 

72 

23 

ES 

C5 
014500 
EB 
CDAFCA 
C1 

60 

69 

Di 

D5 
010C00 
EDBO 
ET 

D1 

ES 
011200 
09 
3616 
23 

23 

23 

73 

23 

72 


POP 
RET 


HL 


copie nom de fichier étendu dans bloc header OPENOUT 


LD 
PUSH 
PUSH 
CALL 
LD 
INC 
LD 
INC 
LD 
INC 
LD 
INC 
LD 
INC 
PUSH 
PUSH 
LD 
EX 
CALL 
POP 
LD 
LD 
POP 
PUSH 
LD 
LDIR 
POP 
POP 
PUSH 
LD 
ADD 
LD 
INC 
INC 
INC 
LD 
INC 
LD 


HL, OO9AH 
BC 

DE 
OCASFH 
CHL), 00H 
HL 
CHL),E 
AL 
CHL),D 
HL 
CHL),E 
RL 
CHL),D 
HL 

AL 

BC 
BC,0045H 
DE,HL 
OCAAFH 
BC 

H,B 

L,C 

DE 

DE 

BC, OOOCH 





HL 

DE 

HL 

BC, 0012H 
HL, BC 
CHL),16H 
HL 

HL 

HL 
CHL),E 
HL 
CHL),D 


;décal. par rapp. bloc header OPENOUT 


shl=hl+iy, hl=> bloc header 


(de) => Adresse du buffer user 
:dans pointeur début buffer user 


;:Vecteur dans buffer user 
sfixer sur début 


3: (h1)=> début nom fichier dans header 


(bc) => EFN à partir numéro user 
nombre d'octets à annuler 

vide (de) à (de+bc), reste du header 
: (bc) => EFN à partir numéro user 
stransférer dans hl 


zadr, nom fichier dans header dans de 
;:longueur nom fichier avec Drive/User 
:tranférer dans bloc header 


z:adr, nom fichier dans header dans h1l 
adresse buffer user dans de 


:marque type fichier ‘'unprot, ASCII" 


Adresse buffer user 


- 11 60 - 


CE8C 
CE8D 
CES8F 
CE90 
CE91 


ONE DE DE ED DE DE DEN 


CE92 
CE93 
CE96 
CE97 
CE99 


CE9A 
CE9B 
CE9C 


CE9D 
CESE 
CE9F 
CEAI 
CEA2 
CEA3 


OEM DEEE HE 


CEAL 
CEAS 
CEAB 
CEA9 
CEAA 
CEAB 
CEAC 


LRRSRLELLSLLLLL.)] 


CEAF 
CEB2 
CEB3 
CEB6 


CEB9 
CEBC 
CEBD 


23 
36FF 
ET 
C1 
C9 


ES 
210000 
54 
0643 
E3 


7E 
23 
E3 


5F 
19 
10F8 
EB 
ET 
C9 


ES 
CD92CE 
73 
23 
72 
ET 
C3F9D3 


CD9DCD 
D5 

CDGFDA 
CDIHCE 


210900 
09 
7E 


INC 
LD 

POP 
POP 
RET 


HL 
CHL), OFF 
HL 
BC 


H 


valeur contrôle deux octets sur header (43h octets) 


PUSH 
LD 
LD 
LD 
EX 


LD 
INC 
EX 


LD 
ADD 
DUNZ 
EX 
POP 
RET 


PUSH 
CALL 
LD 
INC 
LD 
POP 
JP 


DISC 
CALL 
PUSH 
CALL 
CALL 


LD 
ADD 
LD 


IN 


AL 

HL, 0000H 
DH 

B, 43H 
(SP), HL 


À, CHL) 
HL 
(SP), HL 


E, À 
HL, DE 
OCE99H 
DE, HL 
HL 


HL 
OCE92H 
CHL),E 
HL 
CHL),D 
HE 
OD3F9H 


OPEN 
OCD9DH 
DE 
ODAG6FH 
OCET4H 


HL, 0009H 
HL, BC 
À, CHL) 


shl => début header 

:fixer valeur contrôle sur 0 
soctet fort de de mis à O0 

snombre d'octets 

3h1 = pointeur dans header, valeur 
contrôle sur pile 

;un caractère dans accu 

:prochain caractère dans le header 
shl = valeur de contrôle, pointeur 
dans header sur pile 

zaccu dans e, de = caract, en 16 bits 
ajouter à valeur de contrôle 
encore un caractère? => 

;valeur de contrôle dans de 

shl => début header 


ranger pointeur de pile 

adresse buffer 2K 

contrôler validité nom de fichier 
header param. disc dans hl, Login 
s'il y a lieu 


:(bc)=> nom de fichier étendu 
3(h1)=> premier caract, extension 
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CEBE 
CEBF 
CECI 
CEC4 
CEC7 


CELLELLELLEELLS EL) 


CEC9 
CECC 
CECF 
CED1 
CEDA 
CED7 
CED9 
CEDC 
CEDF 
CEEO 
CEE3 
CEE4 


LILI LL LLLLLLE EL) 


CEE7 
CEE8 
CEEB 
CEEC 
CEEF 
CEF2 
CEF3 
CEF4 
CEF5 
CEF8 
CEFB 
CEFE 
CFO1 
CFO3 
CFO4 
CFO5 


CFO8 


CFOB 


3C 
2808 
CD51D6 
D20CD5 
181E 


CDA8D2 
CD51D6 
3816 
CDB3D2 
CD51D6 
380E 
CDB7D2 
CD51D6 
F5 
D4A8D2 
F1 
D20CD5 


D1 
CD48CE 
E5 
110800 
CD98CA 
OB 

CA 

12 
CD9CD7 
21E400 
CD9FCA 
CD92D3 
301F 
E5 

D5 
CD92CE 


CDF9DB 


CDF3DB 


:premier caract. extension =ffh? 

:=> entré nom fichier sans extension 
:chercher nom de fichier dans Dir 
:=> fichier pas trouvé, interruption 


entré nom de fichier sans extension 


INC À 

JR Z, OCECOH 
CALL 0D651H 

JP NC, OD50CH 
JR OCEE7H 
CALL OD2A8H 
CALL OD651H 
JR C, OCEEZH 
CALL OD2B3H 
CALL OD651H 

JR C,OCEE7H 
CALL OD2B7H 
CALL OD651H 
PUSH AF 

CALL NC, OD2A8H 
POP AF 

JP NC, ODSOCH 


:entrer 3 espaces extension 

>:nom de fichier sur disque sans ext.? 
3=> trouvé 

sentrer extension ‘BAS’ 

:Sauvegardé comme fichier Basic? 

=> trouvé 

entrer extension ‘BIN’ 

;:Sauvegardé comme fichier binaire? 


sfichier pas trouvé, ext. 3 espaces 


:=> interruption, ‘File not found' 


trouvé nom de fichier dans le Directory 


POP 
CALE 
PUSH 
LD 
CALL 
DEC 
LD 
LD 
CALL 
LD 
CALL 
CALL 
JR 
PUSH 
PUSH 
CALL 


CALL 


CALL 


DE 
OCE48H 
AL 

DE, 0008H 
OCA98H 
BC 

À, (BC) 
(DE), A 
OD79CH 
HL, OOEUH 
OCA9FH 
OD392H 
NC, OCF22H 
HL 

DE 
OCE92H 


ODBF 9H 


ODBF3H 


adresse buffer 2K 
:copier nom fichier dns header OPENIN 
:adresse début header 


:de=de+iy, adresse OPENIN FCB 


numéro de lecteur 

dans OPENIN FCB 

nb caract, dans fichier d'entrée à O 
shi=hl+iy, adresse buffer d'enregist. 
enregistrement dans buffer d'enreg. 
=> erreur apparue 

3(h1)=> début buffer d'enregistrement 

;(de)=> nom de fichier dns OPENIN FCB 

;:Valeur contrôle 43h octets de 
l'enregistrement dans de 

:1d hl,(hl), valeur contr, sauvée 
éventuelle 

shl = de? si oui, enregistrement 
chargé est header 
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CFOE D1 POP DE 


CFOF E1 POP HL 

CF10 200D JR NZ,OCF1FH  ;=> valeur contrôle <>, fichier ASCII 

CF12 115500 LD DE, 0055H 

CF15 CD98CA CALL OCA98H ;de=de+iy, bloc header OPENIN +5 

CF18 014500 LD BC, 0045H nombre d’octets header 

CF1B EDBO LDIR ;stransférer dans bloc header OPENIN 

CF1D 1803 JR OCF22H 

eme EXS fichier d'entrée pas fichier ASCII 

CF1F  CD9CD/ CALL 0OD79CH nb caract, dans fichier entrée sur 0 

CF22 El POP HL 

CF23 ES PUSH HL 

CF24 111500 LD DE, 001 5H 

CF27 19 ADD HL, DE 

CF28 SE LD E, CHL) adresse, d'où fichier a été écrit 

CF29 23 INC HE :à l'origine, dans de 

CF2A 56 LD D, CHL) 

CF2B 23 INC HE 

CF2C 23 INC HL 

CF2D 4E LD C, (HL) :longueur du fichier dans bc 

CF2E 23 INC HL 

CF2F 46 LD B, (HL) 

CF30 El POP HL 

CF31 37 SCF :marque OPENIN OK 

CF32 9F SBC A, À au système d'expl CPC pas d'erreur 

CF33 FD/E67 LD A, (I1Y+67H) ;type de fichier de fichier ouvert 

CF36 C9 RET 

LÉELESELLLLSLLL SE) DISC OUT OPEN 

CF37 CDA2CD CALL OCDA2H ranger pointeur de pile 

CF3A DS PUSH DE adresse de buffer OPENOUT de 2K 

CF3B CD6GADA CALL ODAG6AH steste si nom fichier valide, 
organise EFN 

CF3E CDI4CE CALL OCE14H sheader param. disc dans hl, Login 
s'il y a lieu 

CF41 D1 POP DE buffer OPENOUT 2 

CF42 CDS7CE CALL OCE5S7H :copier EFN dans bloc header OPENOUT 

CFUS ES PUSH HL 3(h1) => header OPENOUT +5, No user 

CFU6  CDABD2 CALL OD2ABH :entrer extension ‘$$$’ dans OHB 

CF49 CD/6D6 CALL 0D676H sfichier déjà sur la disquette? 

CFUC 60 LD H,B ;:adresse header OPENOUT dans hl 
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CF4D 
CFUE 
CFUF 
CF52 
CF55 
CF58 
CF5A 


CF5D 


CF60 
CF61 
CF62 
CF63 


LLLELLELESLLLE SL) 


CF64 
CF65 
CF66 
CF67 
CF6A 
CF6B 
CF6C 
CF6D 
CFG6E 
CF70 
CF71 
CF72 
CF73 


LELELLES LL LL LT.) 


CF74 
CF77 
CF79 
CF7A 
CF7D 
CF7E 
CF7F 
CF81 
CF84 
CF86 
CF89 


69 

2B 
112C00 
CD98CA 
010D00 
EDBO 
011700 


CDAFCA 


ET 
37 
9F 
C9 


ES 
D5 
C5 
CD74CF 
C1 
D1 
EI 
DO 
FETA 
37 
CO 
B7 
cg 


CD84CD 
FDES 
D1 
215000 
19 

7E 
FE02 
CAAACD 
3601 
219500 
19 


LD 
DEC 
LD 
CALL 
LD 
LDIR 
LD 


CALL 


POP 
SCF 
SBC 
RET 


DISC 
PUSH 
PUSH 
PUSH 
CALL 
POP 
POP 
POP 
RET 
CP 
SCF 
RET 
OR 
RET 


retire un caractère 


CALL 
PUSH 
POP 
LD 
ADD 
LD 
CP 
JP 
LD 
LD 
ADD 


IN 


L,C 

AL 

DE, 002CH 
OCA98H 
BC, O0ODH 


BC,0017H 


OCAAFH 


HL 


A À 


CHAR 
HL 

DE 

BC 
OCF74H 
BC 

DE 

HL 

NC 

TAH 


NZ 
À 


OCD84H 
IY 

DE 

HL, 00O50H 
HL,DE 

À, CH) 
02H 

Z, OCDAAH 
CHL),01H 
HL, 0095H 
HL, DE 


3:(h1) => numéro lecteur 


;:de=de+iv, bloc fichier contr.OPENOUT 

:longueur nom fichier av, lect.8 user 

transférer dans FCB OPENOUT 
:longueur affect.blocs dans Dir(10h) 
+ pointeur (7) 

efface reste après nom de fichier 
dans FCB 

;:bloc header +5 

:marque OPENOUT OK 

:au système d'expl. CPC OPENOUT OK 


;:Sauver tous les registres 


sretirer caract, de buffer OPENIN 
restaurer registres 


:marque erreur apparue 
:lu marque EOF? 

marque que tout est OK 
;:=> pas EOF 

:Sinon annuler Carry 
:et retour 


de fichier OPENIN ouvert 

:Sauvegarder pile, tester flag OPENIN 
:Disc-Mempool 

:dans de 


:(hl)=>marque In Char(1)/In Direct(2) 
marque dans accu 

:Disc In Direct était actif? 

>alors erreur, interrupt.de l'instr. 
entrer marque Disc In Char 

tester, si caract. dans buffer 
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CF8A 
CF8B 
CF8C 
CF8D 
CF8E 
CF8F 
CF91 
CF94 
CF95 
CF96 
CF97 
CF98 
CF99 
CF9C 
CF9D 
CFE 
CF9F 
CFA 
CFA2 
CFA3 
CFAU 
CFAS 
CFA6 
CFA7 
CFA8 
CFAB 
CFAC 
CFAE 
CFAF 
CFB1 
CFB2 
CFB4 
CFBS 
CFB7 
CFBA 
CFBB 
CFBC 
CFBD 
CFBE 
CFBF 
CFCO 
CFC1 


À, CHL) compteur de caractères de 
HL remplissage de trois octets 
CHL) 

HL 

CHL) 


Z,OCFC7H :=> pas de caractère dans buffer 
HL, 0068H 

HL, DE 

À, CHL) 


Z,OCFCBH remplir buffer OPENIN de 2K 

A, CHL) tester si nombre de caractères lus 
HL set placés dans buffer OPENIN = 0 
(HL) 

Z,O0CFC7H :=> erreur, pas de caract.dans Buffer 
B, (HL) nombre octets lus dans bc 


BC ;un caractère est lu, donc décompter 
CHL),C >ranger nombre de caractères 

HL srestant dans le buffer 

CHL),B 

HL, 0095H 

HL, DE 

B, 03H 

A, CHL) 

01H 

CHL), A 

NC, OCFB7H 

HL 

OCFAEH 

HL,0053H 

HL, DE 

E, CHL) :pointeur dans buffer OPENIN dans de 
HL 

D, (HL) 

DE,HL 

20H LD A, CHL), retirer caract, de buffer 
DE,HL 

DE augmenter pointeur buffer OPENIN 
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CFC2 
CFC3 
CFC4 
CFCS 
CFC6 


LELLL LIL LL LL S LS) 


CFC7 
CFC9 
CFCA 


LÉLLLLLELILS TS S: 


CFCB 
CFCC 
CFCD 
CFCE 
CFD1 
CFD2 
CFDS 
CFD6 
CFD9 
CFDC 
CFDE 
CFDF 
CFEO 
CFE2 
CFEL 
CFE6 
CFE7 
CFE8 
CFE9 
CFEA 
CFEB 
CFÉE 
CFEF 
CFFO 
CFF1 
CFF2 
CFF3 
CFF4 


72 
2B 
73 
37 
C9 


3EO0F 
B7 
C9 


E5 

D5 

ES 
215100 
19 
CDF9DB 
E5 
011000 
CD49DO 
3€10 
91 

47 
0E00 
CB38 
CB19 
D1 

E1 

71 

23 

70 
OTEAFF 
09 

73 

23 

72 

D1 

ET 

C9 


LD 
DEC 
LD 
SCF 
RET 


CHL),D 
RL 
CHL),E 


conclusion erreur 


LD 
OR 
RET 


PUSH 
PUSH 
PUSH 
LD 
ADD 
CALL 
PUSH 
LD 
CALL 
LD 
SUB 
LD 
LD 
SRL 
RR 
POP 
POP 
LD 
INC 
LD 
LD 
ADD 
LD 
INC 
LD 
POP 
POP 
RET 


À, OFH 
À 


HL 

DE 

HL 
HL,0051H 
HL, DE 
ODBF9H 
HL 

BC, 0010H 
ODO49H 
À, 10h 


HL 

CHL),B 
BC, OFFEAH 
HL, BC 
CHL),E 

HL 

CHL),D 

DE 

HL 


et ranger 


marque, un caractère retiré 


code erreur 
annuler Carry 


:ld hl,(hl), adresse buffer 

ranger sur la pile 

:16 enregistrements 

;charger dns buffer OPENIN si présent 


;:déterminer nombr enregistrements lus 
:nombre dans b 


détermine nombre octets lus 
résultat dans bc 

spointeur buffer OPENIN 
3:(hl)=> nombre octets lus 
:ranger 


ranger pointeur buffer OPENIN 
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LÉLLESSLSLS LS EE: DISC IN DIRECT 


CFFS5 
CFF8 
CFF9 
CFFC 
CFFF 
DO00 
DO02 
DO05 
DO07 
DOOÀ 
DOOB 
DOOC 
DOOD 
DO0E 
DOOF 
D010 
D011 
D012 
DO14 
D017 
D018 
D019 
DOTA 
DO1D 
DOIE 
DO20 
DO21 
DO23 
DO25 
DO26 
DO27 
DO2A 
DO2D 
DO2E 
DO31 
DO34 
D035 
D036 
DO37 
D039 
DO3A 


CD84CD 
ES 
215000 
CD9FCA 
7E 
FE01 
CAAACD 
3602 
114500 
19 

5E 

23 

56 

E1 

D5 

ES 

EB 
3E07 
CDEBDB 
44 

4D 

El 
CD4SDO 
D1 
301E 
7B 
E67F 
2819 
F5 

ES 
21E400 
CD9FCA 
ES 
010100 
CD49DO 
ET 

D1 

C1 
3005 
48 
0600 


CALL 
PUSH 
LD 
CALL 
LD 
CP 
JP 
LD 
LD 
ADD 
LD 
INC 
LD 
POP 
PUSH 
PUSH 
EX 
LD 
CALL 
LD 
LD 
POP 
CALL 
POP 
JR 
LD 
AND 
JR 
PUSH 
PUSH 
LD 
CALL 
PUSH 
LD 
CALL 
POP 
POP 
POP 
JR 
LD 
LD 


OCD84H 
HL 

HL, O050H 
OCA9FH 
À, (HL) 
01H 
Z,OCDAAH 
CHL),02H 
DE, 0045H 
HL, DE 

E, CHL) 
HL 

D, (HL) 
HL 

DE 

HL 

DE, HL 

À, 07H 
ODBEBH 
B.H 

CL 

hL 
ODO49H 
DE 

NC, ODO3EH 
AE 

7FH 
Z,ODO3EH 
AF 

HL 

HL, OOE 4H 
OCA9FH 
RL 

BC, 0001H 
ODO49H 
HL 

DE 

BC 

NC, ODO3EH 
C,B 

B, OOH 


;Sauver pile, tester flag OPENIN 
adresse de chargement 


shi=hl+iy 

tester marque In Char(1)/In Direct 
:si Disc in Char, 
:erreur,interruption de l'instruction 
entrer marque Disc In Direct 


nombre Caractères dans de 


:adresse de chargement dans hl 
set échanger 

32°7=128 

:divise nombre caractères/128 
srésultat nombre enreg, dans bc 


adresse de chargement dans hl 
;charger nombre enregistr, calculé 


;=> erreur 


shi=hl+iy 
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DO3C 
DO3E 
DO41 
DO44 
DO45 
DO46 


CELL LLELLLLSL EE) 


DO49 


LELLLELLLLLELLS SE) 


DOUB 
DOHE 
DO4F 
DO52 


DO55 
DO56 
DO57 
DO5A 
DO5D 
DOSE 
DO5F 
DO60 
D061 
D063 
DO64 


LLLEL LS SELLE LLL SL) 


D065 
D068 


LELLLLL LS EL LL] 


D069 
DO6A 
D06B 
DO6C 
DO6F 
DO72 
DO73 
DO74 
DO75 


EDBO 
216F00 
CD9FCA 
37 

SF 
C3F9DB 


1814 


CD92D3 
DO 

116700 
CD98CA 


TA 

1F 
DC52D2 
118000 
19 

OB 

78 

B1 
20E8 
37 

C9 


CD64CF 
DO 


ES 
D5 
F5 
215300 
CD9FCA 
SE 
23 
56 
1B 


LDIR 

LD HL, 006FH 
CALL OCA9FH 
SCF 


SBC A A 
JP ODBF9H 
JR ODO5FH 


:ld hl,(hl) 


enregistrements dans buffer OPENIN, nombre enreg. dans bc 


CALL OD392H 


RET NC 

LD DE, 0067H 
CALL  OCA98H 
LD A, (DE) 
RRA 

CALL  C,0D252H 
LD DE, 0080H 
ADD  HL,DE 
DEC BC 

LD AB 

OR € 

JR NZ, ODOUBH 
SCF 

RET 


DISC TEST EOF 
CALL OCF64H 
RET NC 


DISC RETURN 


PUSH HL 

PUSH DE 

PUSH AF 

LD HL, 0053H 
CALL OCA9FH 
LD E, CHL) 
INC HL 

LD D, (HL) 
DEC DE 


z:enreg., évent. de disc, dans buffer 
:=> fin fichier au autre erreur 


:de=de+iy, adresse type de fichier 
dans header OPENIN 
itester type de fichier 


;=> Carry que pour ‘Protected File” 
:longueur d'enregistrement 
augmenter pointeur de buffer 
:nombre d'enregistrem. encore à lire 
stester si nombre = 0 


=> pas encore tous lus 
stout est OK, Iu tous les enreg. 


:appeler Disc In Char 
3RET si EOF, sinon renvoyer caractère 
:dans buffer 


shi=hl+iy 
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D076 
DO77 
D078 
DO79 
DO7A 
DO7B 
DO7E 
DO7F 
DO82 
DO85 
DO86 
DO87 
DO89 
DO8A 
DO8B 
DO8C 
DO8D 
DO8E 


LELLLLLLLLLLLE ZE] 


DO8F 
D092 
DO93 
DO94 
DO95 
D096 
D098 
D0O99 
DO9C 
DO9D 
DOS 
DOAO 
DOA3 
DOAS 
DOA8 
DOA9 
DOAA 
DOAD 
DOBO 
DOB1 
DOB2 
DOB5 


CD8DCD 


RET 


CHL),D 
HE 
CHL),E 
D,H 

EL 

HL, 0042H 
HL, DE 
OD7ABH 
HL, 0015H 
HL, DE 
CHL) 

NZ, ODO8BH 


DISC OUT CHAR 


CALL 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
POP 
LD 


OCD8DH :range pile, teste flag OPENOUT actif 
HL 

DE 

BC 

AF zaccu contient le caractère 

IY ;:Disc-Mempool dans de 

DE 

HL, OO9AH 

HL, DE :flag Disc Out Mode (Char/Direct) 
À, CHL) :de header dans accu 

02H sjusqu'ici Disc Out Direct? 


Z,OCDAAH :=> fin de l'instruction 

CHL),01H zentrer marque Disc Out Char 

HL, 00B2H 

HL, DE 3:(h1):= nombre car.dns buffer OPENOUT 
HL 

ODBF 9H 3ld hl,(h1), nbre caractères dans fl 
BC, OF800H 

HL, BC 

DE 

C,0D118H => plus de2K,écrire données sur disc 
DE 
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DOB6 
DOB7 
DOB8 
DOB9 
DOBB 
DOBC 
DOBF 
DOCO 
DOC3 
DOC6 
DOC7 
DOC8 
DOC9 
DOCA 
DOCB 
DOCC 


DOCD 
DOCE 
DODO 
DOD1 
DOD2 
DOD3 
DOD4 
DOD5 
DOD6 
DOD7 


LELLLLLESS LES EE) 


DOD8 
DODB 
DODC 
DODD 
DODE 
DOE 1 
DOE4 
DOE5 
DOE7 
DOEA 
DOEC 


ET 

34 

23 
2001 
34 
21DF00 
19 
CDABD7 
219D00 
19 

F1 

UE 

23 

46 

2B 

02 


34 
2002 
23 
34 
C1 
D1 
ET 
37 
9F 
C9 


CD8DCD 
F5 

E5 

D5 
219400 
CD9FCA 
7E 
FE01 
CAAACD 
3602 
112000 


POP 
INC 
INC 
JR 
INC 
LD 
ADD 
CALL 
LD 
ADD 
POP 
LD 
INC 
LD 
DEC 
LD 


INC 
JR 

INC 
INC 
POP 
POP 
POP 
SCF 
SBC 
RET 


HL 

CHL) 

HL 

NZ, ODOBCH 
CHL) 

HL, OODFH 
HL, DE 
OD7ABH 
HL, 009DH 
HL, DE 

AF 

C, CHL) 
HL 

B, (HL) 
HL 
(BC),A 


CHL) 

NZ, ODOD2H 
HL 

CHL) 

BC 

DE 

HL 


A, À 


DISC OUT DIRECT 


CALL 
PUSH 
PUSH 
PUSH 
LD 
CALL 
LD 
CP 
JP 
LD 
LD 


OCD8DH 
AF 

HL 

DE 

HL, OO9AH 
OCA9FH 
A, CHL) 
OTH 
Z,OCDAAH 
CHL), 02H 
DE, 0020H 


augmenter nmbre car.dans buffer user 
valeur deux octets 

sn'augmenter octet fort 

que si nécessaire 


augmenter File Character Counter 


3:(h1) => vecteur sur pointeur dans 
:buffer user 
3bc => pointeur dans buffer user 


:placer caractère dans accu dans 
buffer user 

augmenter pointeur dans buffer user 
:également octet fort si nécessaire 


marque que tout est OK 
message au système CPC: OK 


:range pile, teste flag OPENOUT actif 
saccu = type de fichier 

adresse, à partir de laquelle écrire 
:longueur du bloc de données 


shi=hl+iy, Disc Out Mode(Char/Direct) 
dans accu 

:Disc Out Char actif Jusqu'ici? 
zalors erreur, fin de l'instruction 
z:entrer marque direct 
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DOEF 19 
DOFO 70 
DOF1 2B 
DOF2 71 
DOF3 C1 
DOF4 2B 
DOF5 70 
DOF6 2B 
DOF7 71 
DOF8 112900 
DOFB 19 
DOFC 70 
DOFD 2B 
DOFE 71 
DOFF 11D3FF 
D102 19 
D103 71 
D104 23 
D105 70 
D106 C1 
D107 23 
D108 71 
D109 23 
D10A 70 
D10B 11E6FF 
DIE 19 
D10F 71 
D110 23 
D111 70 
D112 F1 
D113 111500 
D116 19 
D117 77 


LÉRSLLLLS SSL LL LL) 


D118 FDES 
DIIA D1 
D11B 21B600 
D11E 19 
D11F 7E 
D120 B7 
D121 2818 


ADD HL, DE 

LD CHL),B :bc = adresse entrée 

DEC HE 

LD CHL),C 

POP BC bc = longueur bloc de données 
DEC HL 

LD CHL),B 

DEC HL 

LD CHL),C 

LD DE, 0029H 

ADD HL, DE 

LD CHL),B 

DEC HU 

LD CHL),C 

LD DE, OFFD3H 

ADD HL, DE 

LD (HL),C 

INC HL 

LD CHL),B 

POP BC 

INC HL 

LD CHL),C 

INC HL 

LD CHL),B 

LD DE, OFFE6H 

ADD HL, DE 

LD CHL),C 

INC HL 

LD CHL),B 

POP AF :Type de fichier dans accu 
LD DE,0015H 

ADD HL, DE 

LD CHL), A :Type fichier dns bloc header OPENOUT 
écrire 2K (buffer user avec OUT CHAR) sur la disquette 
PUSH IY :Disc Mempool 

POP DE ;dans de 

LD HL, 00B6H 

ADD HL, DE 

LD À, CHL) 3octet header ‘First Block’ 
OR A 

JR Z,0D13BH :=> pas le premier bloc 
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D123 
D126 
D127 
D128 
D12A 
D12C 
D12E 
D131 
D132 
D133 
D134 
D137 
D13A 
D13B 
D13E 
D13F 
D140 
D141 
D142 
D143 
D146 
D147 
D14A 
D14B 
DilE 
D14F 
D150 
D152 
D153 
D155 
D156 
D157 
D158 
D15A 
D15D 
D15E 
D15F 
D160 
D161 
D162 
D163 


21B100 
19 

7E 
E60F 
FE06 
280D 
212C00 
19 

D5 

EB 
CDA7D7 
CD7DD7 
D1 
21B200 
19 

E5 

SE 

23 

56 
O1E8FF 
09 
CDF9DB 
E5 
CD64D1 
C1 

ET 
3600 
23 
3600 
23 

23 

23 
3600 
11E7FF 
19 

71 

23 

70 

37 

9F 

C9 


LD 
ADD 
LD 
AND 
CP 
JR 
LD 
ADD 
PUSH 
EX 
CALL 
CALL 
POP 
LD 
ADD 
PUSH 
LD 
INC 
LD 
LD 
ADD 
CALL 
PUSH 
CALL 
POP 
POP 
LD 
INC 
LD 
INC 
INC 
INC 
LD 
LD 
ADD 
LD 
INC 
LD 
SCF 
SBC 
RET 


HL, 0OB1H 
HL, DE 

À, CHL) 
OFH 

06H 
Z,0D13BH 
HL,002CH 
HL, DE 

DE 

DE,HL 
OD7A7H 
OD77DH 
DE 

HL, 00B2H 
HL, DE 

AL 

E, CHL) 
HL 

D, (HL) 
BC, OFFE8H 
HL, BC 
ODBF9H 
HL 
OD164H 
BC 

HL 
CHL) , 00H 
HL 

CHL), 00H 
HL 

HL 

AL 

CHL), 00H 
DE,OFFE/H 
HL, DE 
CHL),C 
HL 
CHL),B 


A À 


3(hl):= Type de fichier 
:Type de fichier dans accu, 
:Hi-Nibble est indifférent 
:marque ‘unprotected ASCII"? 
3=> c'est le cas 


,hi=> bloc contrôle fichier OPENOUT 
:Disc-Mempool 


Nombre enreg, +1 pour enreg. header 
tester nombre enreg. dans FCB 


:Block Char Counter, 
Nombre des caractères dans de 


sh1 => User Buffer Vector 
;:ld hl,(h1l), hl => User Buffer 


:Buffer dans enreg., alors sur Disque 
bc => User Buffer 

shi => Character Count 

mettre à O 


;Marque OK 
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LRLLLLL LL SLR SE): 


D164 DS PUSH DE Nombre caractères dans bloc 


D165 3E07 LD À, 07H :Nombre enreg./bloc 

D167 EB EX DE, HL :Nombre dans de 

D168 CDEBDB CALL ODBEBH :divise nombre car.s /128 

D16B EB EX DE, HL résultat nécessitait enreg. dans de 
D16C 42 LD B,D zet bc 

D16D uB LD CE 

D16E CD88D1 CALL 0D188H :transférer enregistrements 

D171 C1 POP BC :Nombre caractères 

D172 79 LD AC zoctet faible dans accu 

D173 E67F AND 7FH :limiter à un enregistrement 

D175 C8 RET y 3:si zéro, alors pas d'autres octets 
D176 4F LD C,A :Sinon reste fichier dans nouvel enr. 
D177 0600 LD B, OH zalors octet fort = zéro 

D1/79 11E400 LD DE, OOE 4H 

D17C CD98CA CALL OCA98H :de=de+iy 

D17F DS PUSH DE :buffer enregistrement 

D180 CD1BB9 CALL 0B91BH :KL LDIR,transf.dernier enr.dns buffe 
D183 3E1A LD A, 1AH marque EOF 

D185 12 LD (DE), A :aJouter 

D186 E1 POP HL shl => buffer enregistrement 

D187 03 INC BC :bc = augmenter compteur d'enregistr. 
D188 1827 JR OD1B1H 


RREEHEERXE écrire enreg, (Nombre dans bc) dans fichier 
D18A ES PUSH HL 


D18B 11B100 LD DE, 00B1H 

D18E CD98CA CALL OCA98H :de=de+iy 

D191 A LD À, (DE) :Type de fichier dans accu 

D192 1F RRA :Bit 0 mis? 

D193 3013 JR NC,O0D1A8H  ;=> pas mis, pas ‘Protected’ 

D195 C5 PUSH BC 

D196 11E400 LD DE, OCE 4H 

D199 CD98CA CALL OCA98H :de=de+iy 

D19C DS PUSH DE :de = buffer enregistrement 

D19D 018000 LD BC, 0080H :longueur d'enregistrement 

D1AO CD1BB9 CALL 0B91BH :KL LDIR, bloc header dns buffer enr. 
D1A3 EI POP HL 

D1A4 C1 POP BC 

D145 CD52D2 CALL 0D252H ; protéger’ enregistrement 

D1A8 CDAFD3 CALL OD3AFH :enreg.dns buffer secteur, évtl disc 
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DIAB 
DIAC 
DIAF 
D1BO 
D1B1 
D1B2 
D1B3 
D1B5 


LRSLLE LL LL LS L EL) 


D1B6 
D1B9 


LL LS LS LL LL LL LL) 


DIBC FD3608FF 


D1CO 


LELLLLLL LIL LLZ EL] 


D1C2 
DIC5 
D1C8 
D1CB 
DICC 
D1CF 
D1DO 
D1D2 
D1D3 
D1D6 


LELLLSL LS ELLES LEE) 


D1D8 
D1DB 
D1DE 
DIDF 
D1EO 
D1E1 
DIE2 
D1E3 
DIES 


DIE8 
D1EB 


E1 
118000 


CD84CD 
CDESC9 


186E 


CD8DCD 
112D00 
CD98CA 


21DF00 
CD9FCA 


28DD 
CD8DCD 


CD18D1 
112C00 


DISC 
CALL 
CALL 


DISC 
LD 
JR 


DISC 
CALL 
LD 
CALL 
XOR 
CALL 
DEC 
LD 
LD 
CALL 
JR 


DISC 


HL 

DE, 0080H 
HL, DE 

BC 

A,B 

C 

NZ, 0D18AH 


dans CLOSE 
OCD84H 
OC9ESH 


dans ABANDON 


shl => buffer enregistrement 
longueur d'enregistrement 


diminuer nombre des enregistrements 
stous enreg. écrits? 


=> encore enreg, à écrire 


:Sauvegarder pile, tester flag OPENIN 
Moteur éteint, déclencher Event 


(1Y+08H),0FF;mettre flag OPENIN actif sur inactif 


OD230H 


OUT ABANDON 
OCD8DH 
DE, 002DH 
OCA98H 
A 
OD83CH 
DE 
A, OFFH 
(DE),A 
0C51FH 
OD230H 


OUT CLOSE 
HL, OODFH 
OCA9FH 
À, CHL) 


CHL) 
Z,0D1C2H 
OCD8DH 


0D118H 
DE, 002CH 


:fin 


;Sauvegarde pile, teste flag OPENOUT 
:de=detiy 


s:libérer à nouveau blocs dans 
stable d'affectation 


:chercher piste 0 
sfin 


:File Character Count 

shi=hi+iy 

iteste si des caractères ont été 
transférés, 


3SinonDiscOutAbandon,pas d'entrée DIR 
:sauver pointeur pile, tester flag 
OPENOUT 

stransf. dernier enreg. dans buffer 
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DIEE CDS98CA CALL OCA98H :de=de+iy, nom fichier dans 


D1F1 DS PUSH DE :FCB OPENOUT 

D1F2 CD8CD7 CALL OD78CH :entrer nom fichier et affectation 
D1F5 019F00 LD BC, 009FH :blocs dans dir 

D1F8 CD90CA CALL OCA9CH sbc=bc+iy, bc:= bloc header OPENOUT 
D1FB 211200 LD HL, 0012H 

D1FE 09 ADD HL, BC :(hl):= Type de fichier 

DIFF GE LD E, CHL) 

D200 210900 LD HL, 0009H 

D203 09 ADD HL, BC 

D204 7E LD À, CHL) ser caractère extension dans accu 
D205 3C INC A tester si ffh 

D206 2016 JR NZ,OD21EH  ;=> extension indiquée 

D208 7B LD AE :Type de fichier dans accu 

D209 E60E AND OEH 

D20B 2005 JR NZ, 0D212H 

D20D CDB3D2 CALL OD2B3H :entrer extension ‘BAS’ 

D210 180C JR 0D21EH 

LELELLLLLLLLLLS: 

D212 FEO2 CP 02H :Type de fichier 2? 

D214 2005 JR NZ,0D21BH 

D216 CDB/D2 CALL OD2B7H :entrer extension ‘BIN’ 

D219 1803 JR OD21EH 

LELELLLÉELSLSESLLSS 

D21B CDA8D2 CALL OD2A8H :entrer extension 3 espaces 

D21E 60 LD H,B Adresse bloc header OPENOUT dans N] 
D21F 69 LD LC 

D220 7B LD AE :Type de fichier dans accu 

D221 E60F AND OFH :Hi-Nibble est indifférent 

D223 FEO6 CP 06H ;'Unprotected ASCII"? 

D225 CUAUCE CALL NZ,OCEAUH  ;=> est ‘protected’ 

D228 C1 POP BC :FCB OPENOUT dans bc 

D229 3EFF LD À, OFFH 

D22B 02 LD (BC),A :Marque, OPENOUT pas actif 

D22C 03 INC BC 

D22D CDDAD2 CALL OD2DAH remplace ‘$$$’ par extension orig. 
D230 37 SCF Marque DISC OUT CLOSE OK 

D231 9F SBC AA message au système CPC: tout est OK 
D232 C9 RET 
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CLLELESSLLSLRSSS: 


D233 
D236 
D23A 
D23D 
D240 
D243 
D246 
D247 
D248 
D249 
D24B 
D24C 
D24D 
D24F 


LLLLLLLELLLL ES LE) 


D252 
D253 
D254 
D255 
D258 
D25A 


LELESSL ELLE LS SES) 


D25C 
D25D 
D25E 
D25F 
D260 
D263 
D264 
D265 
D266 
D267 
D269 
D26A 
D26B 
D26D 
D26F 
D273 
D274 


FD6602 
FD360500 
110800 
CD43D2 
112C00 
CD98CA 
A 

BC 

C0 
3EFF 
12 

13 
3E09 
C3CADB 


ES 

C5 

ES 
110101 
0681 
180E 


E3 

E7 

E3 

AE 
DDAEO0 
ES 

77 

23 

E3 
DD23 
23 

15 
2006 
160B 
DD2181D2 
1D 
2005 


LD 
LD 
LD 
CALL 
LD 
CALL 
LD 
CP 
RET 
LD 
LD 
INC 
LD 
JP 


PUSH 
PUSH 
PUSH 
LD 
LD 
JR 


H, CIY+02H) 
(IY+05H),00H ;:pas OPEN actif sur lecteur appelé 
DE, 0008H 

0D243H 

DE, 002CH 

OCA98H :de=de+iy 
À, (DE) 

H 

NZ 

À, OFFH 

(DE), A 

DE 

À, OH 

ODBCAH 


HL 

BC 

HL 
DE,0101H 
B,81H 
OD26AH 


3:'Protected File’, protection par XOR 


EX 
RST 
EX 
XOR 
XOR 
EX 
LD 
INC 
EX 
INC 
INC 
DEC 
JR 
LD 
LD 
DEC 
JR 


CSP), HL ;:pointeur buffer OPENIN dans hl 


20H 3RAM LAM, caract, de buffer dans accu 
(SP), HL 

CHL) 

CIX+00H) 

(CSP),HL 

(CHL),A :retour octet dans buffer OPENIN 
HE :augmenter pointeur buffer 

(SP), HL ;:et à nouveau sur la pile 

IX sprochain octet XOR 

HL :prochain octet XOR 

D compteur octets pour table ix 
NZ,0D273H ;=> table pas encore terminée 

D, OBH :table 11 octets pour ix 
IX,0D281H  ;début table dans ix 

E ;:compteur octets pour table hl 


NZ,0D27BH ;=> table pas encore terminée 
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D276 
D278 
D27B 
D27D 
D27E 
D27F 
D280 


1E0D 
218CD2 
1ODF 
E1 

D1 

Ei 

C9 


LD 
LD 
DJNZ 
POP 
POP 
POP 
RET 


E, ODH 

HL, OD28CH 
OD25CH 

HE 

DE 

HL 


LELLLLLELLL LISE LS table pour ix 


D281 


49 B1 36 FO 2E 1E 


D287 06 2A 28 19 EA 


LESLELSELL LE SSL: table pour h1 


D28C E2 9D DB 1A 42 29 
D292 39 C6 B3 C6 90 45 


D298 


LELLLELE LES LL) 


D299 
D29C 
D29F 
D2A2 
D2A5 


LELELLI EL LILI SSL) 


D2A8 
D2A9 


LELLLLSLELLESL EL) 


D2AB 
D2AD 


LRLLLELESLLLLLE) 


D2AF 
D2B1 


LÉRLSLELELELLEEL LE) 


D2B3 
D2B5 


LRRSELSLLLLEL LE) 


D2B7 


8A 


202020 
242424 
4241 4B 
424153 
H2UQUE 


AF 
180€ 


3E03 
180A 


3E06 
1806 


3E09 
1802 


3E0C 


extensions 
DEFM RS: 
DEFM "$$$" 
DEFM "BAK" 
DEFM BAS" 
DEFM "BIN' 
XOR À 

JR OD2B9H 
LD À, 05H 
JR OD2B9H 
LD À, 06H 
JR OD2B9H 
LD À, 09H 
JR OD2B9H 
LD À, OCH 


:table 
: début 


13 octets pour h]l 
table 


:b:= Nombre des octets à coder 


3trois 


3 "$$$" 


3 "BAK' 


3 "BAS" 


3'"BIN’ 
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espaces 


pour nom fichier temporaire 


pour fichier backup 


pour fichiers Basic 


pour fichiers binaires 


D2B9 
D2BA 
D2BC 
D2BD 
D2BF 
D2C0 
D2C1 


CELLLLLLLLLELL EL) 


D2C3 
D2C4 
D2C7 
D2CA 
D2CB 
D2CC 
D2CF 
D2D0 
D2D3 
D2D4 
D2D6 
D2D7 
D2D8 
D2D9 


LELLLLLLLLL LEE) 


D2DA 
D2DD 
D2DE 
D2E0 
D2E1 
D2E2 
D2E4 
D2E7 
D2E8 
D2EB 
D2EC 
D2EF 
D2F0 
D2F2 
D2F5 
D2F8 
D2FA 


D5 
C699 
5F 
CED2 
93 
57 
1807 


D5 
114800 
CD98CA 
E5 

C5 
210900 
09 
010300 
EB 
EDBO 
C1 

ET 

D1 

cg 


210C00 
09 
36FF 
23 

23 
36FF 
CD83D6 
ES 
210000 
E3 
CDA2D6 
E3 
3028 
CDAFD2 
CDD8D7 
3008 
2601 


PUSH 
ADD 
LD 
ADC 
SUB 
LD 
JR 


DE 

À, 99H 
E-À 

À, OD2H 
E 

D, A 
OD2CAH 


ajouter octet faible de début table 
srésultat dans e 

ajouter octet fort avec Carry 
soustraire octet faible 

zoctet fort résultat dans d 


entrer extension dans nom fichier 


PUSH 
LD 
CALL 
PUSH 
PUSH 
LD 
ADD 
LD 
EX 
LDIR 
POP 
POP 
POP 
RET 


LD 
ADD 
LD 
INC 
INC 
LD 
CALL 
PUSH 
LD 
EX 
CALL 
EX 
JR 
CALL 
CALL 
JR 
LD 


DE 
DE,00A8H 
OCA98H 
HL 

BC 

HL, 0009H 
HL, BC 
BC, 0003H 
DE, HL 


BC 
HL 
DE 


HL, OOOCH 
HL, BC 
CHL),0FFH 
HL 

HL 
CHL),0FFH 
OD683H 

HL 

HL, O000H 
(SP), HL 
CD6A2H 
(SP), HL 
NC,OD31AH 
OD2AFH 
OD7D8H 
NC, OD302H 
H, 01H 


:de=de+iy 
: longueur nom fichier avec User, 
;:sans extension 


:longueur extension 


zentrer extens.voulue dns nom fichier 


:longueur nom fichier + extension 


snbre entrées Dir et tab affect sur 0 


:prochaine entrée DIR dans (de) 


:=> pas d'autre entrée dans DIR 
ajouter extension ‘BAK' 

:cherche nom fichier indiqué sur disc 
:=> BAK pas présent 
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D2FC 
D2FF 
D301 
D302 
D305 
D308 
D30A 
D30C 
D30F 
D311 
D312 
D313 
D314 
D316 
D317 
D318 
D31A 
D31B 
D31C 
D31D 
D31F 
D320 
D322 
D323 
D324 
D326 
D327 
D329 
D32C 
D32F 
D330 
D333 


LÉSÉLELLELLL ESS SL) 


D335 
D338 
D33B 
D33E 
D341 
D342 
D345 
D348 


CDD9D9 
3801 
24 
CDC3D2 
CDD8D7 
3008 
2E01 
CDD9D9 
3801 
2C 

7C 

B7 
28D5 
7D 

B7 
28D1 
F1 

7D 

B7 
2843 
3D 
2866 
7C 

B7 
283C 
3D 
2845 
CD83D6 
CDA2D6 
DO 
CD35D3 
18F7 


CDAFD2 
CDD8D7 
DAAADA 
CD51D3 
D8 

CDC3D2 
CDD8D7 
DO 


CALL 
JR 
INC 
CALL 
CALL 
JR 
LD 
CALL 
JR 
INC 
LD 
OR 
JR 
LD 
OR 
JR 
POP 
LD 
OR 
JR 
DEC 
JR 
LD 
OR 
JR 
DEC 
JR 
CALL 
CALL 
RET 
CALL 
JR 


CALL 
CALL 
JP 
CALL 
RET 
CALL 
CALL 
RET 


OD9DSH 
C,0D302H 
H 

OD2C3H 
OD7D8H 
NC,0D312H 
L,01H 
OD9D9H 
C,0D312H 


$ 
ZT 


D2EBH 


Ÿ 


NS 
Tr © 


OD2EBH 


ns 


s 
© 
(=) 
N 
ex] 
N 
ZT 


D388H 


$ 
ZT © 


$ 


,0D362H 


ZNBENENBEEENBEZNEZET 
$ 
F 


Z,0D36EH 
OD683H 
OD6A2H 
NC 
OD335H 
OD32CH 


OD2AFH 
OD7D8H 
C, OD4AAH 
OD351H 

C 
OD2C3H 
OD7D8H 
NC 


iteste,si fichier READ ONLY 
3=> est READ ONLY 


:entrer extension dans (de) 
:cherche nom indiqué sur disque 
:=> fichier pas présent 


teste, si fichier READ ONLY 
:=> fichier est READ ONLY 


:nbre entrées Dir & tab affect sur 0 


z:entrer extension ‘BAK' 

:Cherche nom fichier indiqué sur disc 
3=> trouvé 

:chercher fichier ‘$$$’ dans Dir 

=> trouvé 

ajouter extension d'origine 

;cherche nom fichier indiqué sur disc 
=> pas trouvé 
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D349 C5 
D34A 42 
D34B 4B 
D34C  CDAFD2 
D34F  180D 


LEE SLELSS ELLES: 


D351 CDABD2 
D354 CDD8D7 
D357 DO 
D358 C5 
D359 42 
D35A 4B 
D35B CDC3D2 
D35E C1 
D35F C37AD9 


LÉÉLSSÉSS SSI ÉELES ST] 


D362 CD83D6 
D365 CDA2D6 
D368 DO 
D369 CD3ED3 
D36C 18F7 


RD DEN DE DH DE EN 


D36E CD83D6 
D371 CDA2D6 
D374 DO 

D375 CD7/AD3 


D378 18F7 


LÉLLLLELLLEELS ES) 


D37A CD51D3 
D37D D8 
D37E CDC3D2 
D381 CDD8D7 
D384 DAAADH 
D387 C9 


LÉLSSLES ESS LES ES 


D388 CDC3D2 


PUSH 
LD 
LD 
CALL 
JR 


BC 

B,D 

CE 

OD2AFH entrer extension ’BAK' 
OD35EH 


teste, si nom fichier avec ‘$$$’ est déjà sur disquette 


CALL 
CALL 
RET 
PUSH 
LD 
LD 
CALL 
POP 
JP 


CALL 
CALL 
RET 
CALL 
JR 


CALL 
CALL 
RET 

CALL 


JR 


CALL 
RET 
CALL 
CALL 
JP 
RET 


fichier 
CALL 


OD2ABH :entrer extension "$$$" 

0OD7D8H ;:cherche nom fichier indiqué dans Dir 

NC ;=> pas trouvé 

BC 3 (bc) => nom fichier 

B, D adresse de l'entrée Dir identique 

CE :dans bc 

OD2C3H sécrire extension d'origine dans 

BC enregistrement Dir 

OD97AH 

OD683H :Nbre entrées Dir & tab affect sur 0 

OD6A2H :déterminer proch.entrée Dir, de=nbre 

NC ;=> pas d'autre entrée Dir 

OD33EH ;cherche noms fich. temp($$$)et orig. 

0D365H continuer recherche 

OD683H :Nbre entrées Dir & tab affect sur 0 

OD6A2H : déterminer proch.entrée Dir, de=nbre 

NC :=> pas d'autre entrée Dir 

OD37AH :Si fichier temp. trouvé, ext.orig, 
dans enregistrement 

0D371H :Sinon continuer recherche 

0D351H 

C 

OD2C3H entrer extension dans (de) 

0D/D8H ;:cherche nom fichier indiqué sur disc 

C, ODUAAH 


READ ONLY, interrompre extension 
OD2C3H :entrer extension dans (de) 
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D38B 50 LD D,B 


D38C 59 LD E,C 

D38D 3E0A LD A, OAH smess.systèe 10, fichier read only 
D38F C3B1CD JP OCDB1H ssortir, terminer instruction 
LELLLLLLLLSLLLLLS 

D392 ES PUSH HL 

D393 DS PUSH DE 

D394 C5 PUSH BC 

D395 ES PUSH HL 

D396 110800 LD DE, 0008H 

D399 CD98CA CALL OCA98H :de=de+iy, adresse FCB OPENIN 

D39C CD10D4 CALL 0D410H steste, si dernier enregistrement lu 
D39F 3008 JR NC,OD3AJSH ;=> pas d'autre enregistr.dns fichier 
D3A1 EB EX DE, HL :de:=No enreg., hl:= nom fich dns FCB 
D3A2 E3 EX (SP),HL :(hl):= buffer enregistrement 

D3A3 CDE8D9 CALL ODSE8H sretirer enregistr.dans buffer enreg, 
D3A6 D1 POP DE 

D3A7 1848 JR OD3F1H 

LELLLLLLELLLILZZ, 

D3A9 E1 POP HL 

D3AA C1 POP BC 

D3AB D1 POP DE 

D3AC El POP HL 

D3AD B7 OR A 

D3AE C9 RET 

OEM onreg, dans buffer secteur, éventuellement sur disque 
D3AF ES PUSH HL :buffer enregistrement 

D3BO DS PUSH DE 

D3B1 C5 PUSH BC :Nombre enreg. 

D3B2 ES PUSH HL :et encore buffer enregistrement 
D3B3 112C00 LD DE, 002CH 

D3B6 CD98CA CALL OCA98H :de=de+iy, FCB OPENOUT 

D3B9 CDC8D6 CALL OD6C8H iteste si DISK FULL 

D3BC 380B JR C; 0D3C9H => encore place 

D3BE 3E08 LD À, 08H smessage système 8, disc ful] 

D3C0O C2B1CD JP NZ,OCDBIH  ;sortir, interrompre instruction 
D3C3 CD8CD7 CALL OD78CH ;:cherche entrée Dir libre 


D3C6 CDFAD6 CALL OD6FAH 
D3C9 CD2FD/ CALL OD72FH 
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D3CC 
D3CE 
D3D0 
D3D1 
D3D2 
D3D5 
D3D6 
D3D8 


3E08 
D2B1CD 


C,00H 

C, OD3E8H 

DE 

DE, HL 

0OD893H ;chercher bloc libre et occuper 

DE, HL 

À, 08H :Sortir message système 8, disc full 
NC, OCDBIH  ; interrompre instr. si pas bloc libre 


- [1 8 - 


D3DB 
D3DC 
D3DD 
D3DE 
D3E0 
D3E1 
D3E2 
D3E3 
D3E6 
D3E8 
D3E9 
D3EA 
D3ED 
D3EE 
D3F1 
D3F4 
D3F5 
D3F6 
D3F7 
D3F8 


LELLLELSS ESS LS SZ) 


D3F9 
D3FA 
D3FD 
D400 
D403 
D406 
D407 
D408 
D4OA 


D4OD 


LELSELLSSL SELLE ZX] 


D410 
D413 
D415 
D416 
D419 
DTA 
D41B 


73 

78 

B7 
2802 
23 

72 

D1 
CD2FD7 
0E02 
EB 

E3 
CDF3D9 
D1 
CD/DD7 
CDA7D7 
C1 

D1 

ET 

37 

C9 


ES 
112C00 
CD98CA 
CD9CD7 
CD10D4 
EB 

E1 
0E00 
DAF3D9 


C3AFCD 


CDC8D6 
3812 
(OL) 
CDFAD6 
D5 

42 

4B 


LD 
LD 
OR 
JR 
INC 
LD 
POP 
CALL 
LD 
EX 
EX 
CALL 
POP 
CALL 
CALL 
POP 
POP 
POP 
SCF 
RET 


PUSH 
LD 
CALL 
CALL 
CALL 
EX 
POP 
LD 
JP 


JP 


teste, 
CALL 
JR 
RET 
CALL 
PUSH 
LD 

LD 


CHL),E 
A,B 

À 
Z,0D3E2H 
HL 
CHL),D 
DE 
OD72FH 
C,02H 
DE,HL 
CSP), HL 
OD9F3H 
DE 
OD77DH 
OD7A7H 
BC 

DE 

HL 


HL 

DE, OO2CH 
OCA98H 
OD79CH 
OD410H 
DE, HL 

HL 

C, 00H 

C, OD9F3H 


OCDAFH 


OD6C8H 
C, 0D427H 
NZ 
OD6FAH 
DE 

B,D 

CE 


:ranger bloc occupé 


:enregistrement dans buffer secteur 
éventuellement sur disque 


snombre enregistrements +1 


:marque que tout est OK 


enregistrement dans buffer secteur, 
éventuellement sur disque 
:sortirBad command, interrompre 
instruction 


si dernier enregistrement a été lu 
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D41C 
D41D 
DIE 
D421 
D422 
D423 
D426 
D427 
D42A 
D42D 


LELLELELLLL LEE) 


D42E 
D431 
D435 
D434 
D436 
D439 
D43C 
D43F 


D442 
DH45 
D447 
D4UA 
D44B 
D4uc 
DAUF 


D452 
D454 
D457 
D459 
D4SA 
D4SB 
D45C 
DHSD 
D460 
D465 


D466 
D467 


03 
C5 
CDB3D7 
EB 
D1 
DCDFDB 
D1 
DCOCD7 
DA2FD7 
C9 


CD/73CD 
0600 
B7 
2806 
CDC2CD 
CDC7CD 
CDAGDA 
CDIUCE 


CDDODB 
3E0C 
CD72D4 
65 

E5 
CD83D6 
CD98D6 


301A 
CDDFD9 
38F6 
E3 

C5 

7C 

BD 
C4CUDB 
CCE9CA 
CDC8DB 


2D 
2001 


INC 
PUSH 
CALL 
EX 
POP 
CALL 
POP 
CALL 
JP 
RET 


IDIR 
CALL 
LD 
OR 
JR 
CALL 
CALL 
CALL 
CALL 


CALL 
LD 

CALL 
LD 

PUSH 
CALL 
CALL 


JR 
CALL 
JR 
EX 
PUSH 
LD 
CP 
CALL 
CALL 
CALL 


DEC 
JR 


BC 

BC 
OD7B3H 
DE,HL 

DE 

C, ODBDFH 
DE 
C,0D70CH 
C,0D72FH 


OCD73H 
B, OOH 

À 
Z,0D43CH 
OCDC2H 
OCDC7ZH 
ODAAG6H 
OCETHH 


ODBDOH 
À, OCH 
OD472H 
HL 

HL 

OD683H 
0D698H 


NC, ODAGEH 
OD9DFH 

C, OD4UFH 
(SP),HL 
BC 

AH 

L 

NZ, ODBC4H 
Z,OCAESH 
ODBC8H 


L 
NZ, ODAGAH 


:32 octets de (hl) dans (de) 


;Sauvegarder pile 


est-ce que des paramètres suivent? 

;:=> pas d'autre paramètre 

;un param.est OK, sinon ‘Bad command’ 
:b:=longu.chaîne, hl:=adresse chaîne 
convertir en nom fichier correct 
header param.disc dans hl, Login 
s'il y a lieu 

ssortir ‘Drive #: user #' 

: longueur d’un nom fichier avec ‘.' 
:détermine nb entrées par ligne écran 


3:Nb entrées dir & tab affect sur O0 
:chercher nom fichier et déterminer 
affectation 

:=> pas d'autre entrée 

steste, si entrée porte attribut SYS 
;:=> 2ème car, ext. >7f, attribut SYS 
entrées comptées sur pile 


sh:= entrées/ligne 

:l:=encore entrées à sortir dns ligne 
3=> sortir trois espaces 

3=> sortir 'CR/LF' 

ssortir nom de fichier, de pointe sur 
nom de fichier 

entrées affichées dns ligne actuelle 
:=> ligne pas encore pleine 
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D469 
DGA 
D46B 
D46C 


LÉSLLLLLEL LL EL E) 


D46E 
D46F 


LELLELLÉELLL LEE) 


D472 
D47h 
D475 
D476 
D477 
D47A 
D47B 
D47C 
D47D 
D47F 
D481 
D482 
D483 
D485 
D486 
D487 
D489 


LÉLLLSES SSL LE LL) 


DUS8A 
D48D 
D490 
D493 
D496 


D499 
D4gC 
D49F 
DA 
DuAu 
DuA7 
DUAS 


6C 
C1 
E3 
181 


Ei 
C371D5 


C603 
67 
D5 
ES 
CD69BB 
7A 
ET 
D1 
C604 
2E00 
2C 
94 
30FC 
2D 
co 
2E01 
C9 


CD73CD 
CDC2CD 
CDC7CD 
CD8DDA 
CDIUCE 


CD83D6 
CD98D6 
306B 
CDB1D4 
CD98D6 
38F8 
cg 


LD 
POP 
EX 
JR 


fin IDIR 
POP 
JP 


LH 
BC 
(SP), HL 
OD4UFH 


HL 
OD571H 


:ligne pleine, nbre sur valeur 
:de départ 

entrées comptées dans hl 
prochaine entrée 


:déterminer nbre blocs libres, sortir 


déterminer nombre entrées/ligne pour IDIR et CAT 


ADD 
LD 
PUSH 
PUSH 
CALL 
LD 
POP 
POP 
ADD 
LD 
INC 
SUB 
JR 
DEC 
RET 
LD 
RET 


IERA 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
JR 
CALL 
CALL 
JR 
RET 


À, 03H 
HA 

DE 

HL 
OBB69H 
A, D 

HL 

DE 

À, O4H 
L, 00H 
L 

H 

NC, OD481H 
L 

NZ 
L,O1H 


OCD73H 
OCDC2H 
OCDC7H 
ODA8DH 
OCETUH 


OD683H 
OD698H 
NC, OD50CH 
OD4B1H 
OD698H 
C,OD4ATH 


;: longueur entrée plus trois espaces 


3TXT GET WINDOW 
s:colonne droite de fenêtre actuelle 


sinitialiser compteur entrées/ligne 
nombre entrées/ligne 
:longueur d'une entrée DIR 


snombre entrées DIR/ligne, correction 
:Si nombre=0, alors pas de formatage 
:fixer nombre sur 1 


:Sauvegarder pile 

:1 paramètre suit,sinon ‘Bad command’ 
adresse nom fichier à suppr,. dans fl 
:créer nom de fichier pour DOS 
header param.disc dans hl, login 
s'il y a lieu 

:nbre entrées Dir & tab affect sur 0 
:cherche nom fichier et déterm.affect 
:=>annonce fichier pas trouvé, interr, 


;cherche nom fichier et déterm.affect 
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LIÉE SL SL LLLL LE) 


D4AA CDB1D4 CALL OD4B1H 


DHAD D2B8CD JP NC, OCDB8H 

D4BO C9 RET 

LELLLLLLLLEZLS SE) 

D4B1 CDD9D9 CALL OD9D9H teste, si fichier READ ONLY 

D4B4 3F CCF 

D4B5 3EOA LD A, OAH message système ‘nom fichier” is 
read only’ 

D4B7 D2CADB JP NC,ODBCAH  ;=> sortir message, interruption 

DYBA AF XOR A 

D4BB CD3CD8 CALL OD83CH :libérer blocs dans table affectation 

DUBE 3EES LD À, OESH zentrer marque fichier supprimé 

D4CO 12 LD (DE), A :dans nom de fichier 

D4C1 C37AD9 JP 0D97AH 

LÉLELLILLLÉELLLESS IREN 

D4C4 CD73CD CALL OCD73H ; Sauvegarder pile 

D4C7 CDC1CD CALL OCDC1H :2 param.suivent, sinon interruption 

D4CA CDC7CD CALL OCDC7H :premier param., nouveau nom, dans hl 

D4CD CDSBDA CALL ODASBH :organise nom de fichier pour DOS 

D4DO C5 PUSH BC 

D4D1 CDC7CD CALL OCDC7H :second param.,ancien nom, dans hl 

DYD4  CD60ODA CALL ODA6OH >organise nom de fichier pour DOS 

D4D7 Ei POP HL 

DUD8 OA LD A, (BC) 

DUYD9 BE CP CHL) 

DYDA C2AFCD JP NZ,OCDAFH  ;sortir Bad command, interr, instr. 

D4DD CD14CE CALL OCET4H header param.disc dans hl, login 

DHEO 23 INC HL 3S'il y a lieu 

DUET ES PUSH HL 

D4E2 CD44D6 CALL OD644H teste, si nouveau nom fichier existe 

DHES E] POP HL : déjà 

DUEG6G C5 PUSH BC 

DUE7 44 LD B,H 

DUE8 4D LD C,L 

DUE9S CD83D6 CALL 0OD683H :nbre entrées Dir & tab affect sur 0 

DHEC CD98D6 CALL 0OD698H :cherche nom fichier, déterm.affect. 

DUEF 301B JR NC,OD50OCH  ;=> fichier pas trouvé 

D4F1 CDDOD9 CALL OD9D9H steste, si fichier READ ONLY 

D4F4  DASDD3 JP C, OD38DH :=>fichier READ ONLY, pas changer nom 
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D4F7 
D4F8 
DyFg 
DFA 
D4FD 
DAFF 
D500 
D501 
D502 
D505 
D508 
D50A 
D50B 


LÉLLESLSLL SELLES] 


D50C 
D50D 
D50E 
D510 


LÉLLLLLLELLL LS SL: 


D513 
D516 
D517 
D519 
D51C 
D51F 
D522 


D525 
D528 
D529 
D52A 
D52D 
D530 
D532 
D535 
D537 
D538 
D53B 
D53C 
D53E 


E3 

ES 

C5 
010C00 
EDBO 
C1 

E1 

E3 
CD7AD9 
CD98D6 
38E7 
ET 

C9 


50 

59 
3E06 
C3B1CD 


CD73CD 
D5 
DDE1 
010008 
CDAFCA 
CD86DA 
CDIUCE 


CDDODB 
AF 

F5 
CD83D6 
CD98D6 
300€ 
CDDFD9 
38F6 
E3 
CDAADS 
E3 
38EF 
3E11 


EX 
PUSH 
PUSH 
LD 
LDIR 
POP 
POP 
EX 
CALL 
CALL 
JR 
POP 
RET 


fichier 
LD 
LD 
LD 
JP 


CATALOG 
CALL 
PUSH 
POP 

LD 

CALL 
CALL 
CALL 


CALL 
XOR 
PUSH 
CALL 
CALL 
JR 
CALL 
JR 
EX 
CALL 
EX 
JR 
LD 


(SP), HL 
HL 
BC 
BC, 000CH 


BC 

HL 

(SP), HL 
OD97AH 
OD698H 
C,OD4F1H 
HL 


pas trouvé, 
D,B 

E,C 

A, 06H 
OCDB1H 


OCD73H 
DE 

IX 
BC,0800H 
OCAAFH 
ODA86H 
OCET4UH 


ODBDOH 

À 

AF 
OD683H 
OD698H 
NC, OD53EH 
OD9DFH 
C, OD52DH 
(SP),HL 
ODSAAH 
(SP), HL 
C,OD52DH 
A, 11H 


:longueur nouveau nom de fichier 
remplacer ancien nom de fichier 


:chercher nom de fichier et 
déterminer affectation 


interruption 
sadr, nom fichier pour sortie dans de 


:Sortir message système 6, file not 
found, interrompre instruction 


ranger pointeur de pile 
adresse buffer user 
transférer dans ix 

: longueur du buffer user 

:vide buffer user (de) à (de+bc) 


sheader param.disc dans hl, login 


s'il y a lieu 
:sortie ‘Drive #: user #” 


snbre entrées Dir & tab affect sur 0 
:cherche nom fichier déterm.affect, 


teste, si fichier porte attribut SYS 
;:=> est fichier SYS, ne pas sortir 


;une entrée dans buffer user 


:prochaine entrée, donc encore une 
:longueur d’une entr.DIR sur moniteur 
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D540 
D543 
D544 
D545 
D547 
D548 
D549 
D54B 
D54C 
DS4E 
DS4F 
D551 
D552 
D553 
D554 
D555 
D558 
D559 
D55A 
D55C 
D55F 
D560 
D561 
D563 
D564 
D565 
D568 
D569 
D56A 
D56B 
D56D 
D56E 
D56F 
D571 
D574 
D576 
D577 


LÉLLS SSL ESS SLLES SL: 


D57A 
D57B 
D57C 


CD72D4 
55 

F1 
1E00 
1C 

92 
3OFC 
82 
2001 
1D 
DDES 
ET 

LB 

42 

ES 
CD7AD5 
D5 

EB 
2600 
CD3AD6 
19 

D1 
10F2 
E1 

D5 
110E00 
19 

Di 

OD 
2804 
7E 

B7 
20E2 
CDC2D8 
3E03 
B7 
C3EBCA 


E7 
B7 
c8 


CALL 
LD 
POP 
LD 
INC 
SUB 
JR 
ADD 
JR 
DEC 
PUSH 
POP 
LD 
LD 
PUSH 
CALL 
PUSH 
EX 
LD 
CALL 
ADD 
POP 
DJNZ 
POP 
PUSH 
LD 
ADD 
POP 
DEC 
JR 
LD 
OR 
JR 
CALL 
LD 
OR 
JP 


sortie d'une entrée 


RST 
OR 
RET 


OD472H 
DL 

ÂAF 

E, 00H 

E 

D 

NC, ODS47H 
A, D 
NZ,0D54FH 
E 

IX 

AL 

CE 

B,D 

HL 
OD57AH 
DE 

DE, HL 

H, 00H 
OD63AH 
HL, DE 

DE 
OD555H 
HL 

DE 

DE, OOOEH 
HL, DE 

DE 

C 
Z,0D571H 
À, CHL) 

À 

NZ, OD5535H 
OD8C2H 
À, 03H 

A 

OCAEBH 


20H 
A 
Z 


;détermine nombre d'entrées/ligne 
nombre dans d 


nombre de lignes 
:buffer user 

:dans hl 

lignes dans c 
zsentrées/ligne dans b 


sortie d’une entrée 


shl:= h1l * 14 pour sortie alphab. 
:dans plusieurs colonnes 


set sortir prochaine entrée 


:détermine nombre blocs occupés 


:Sortir message système 3, xxxK free 


du buffer user 

3RAM LAM, LD A, CHL) de buffer user 
caractère un 0? 

alors pas d'entrée et => 
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D57D 
D57E 
D57F 
D580 
D581 
D582 
D585 
D588 
D589 
D58C 
D58F 
D591 
D593 
D595 
D598 
D59B 
D59C 
D59D 
D59E 
D59F 
DSAO 
D5A1 
D5A3 
DSAG6 
D5A7 
D5A8 
D5A9 


LELLLLLELL I LLLL) 


DSAA 
DSAB 
DSAC 
DSAE 
DSBO 
DSB1 
D5B2 
D5B3 
DSB5 
D5B6 
D5B9 
D5BB 
D5BD 


ES 

D5 

C5 

78 

BA 
C4CuDB 
CCE9CA 
EB 
CDC8DB 
CDD9D9 
3E2A 
3802 
3E20 
CDSABB 
210C00 
19 

E7 

5F 

23 

E7 

57 
3E02 
CDEBCA 
C1 

D1 

ET 

C9 


C5 
4C 
0600 
DDES 
Eî 
E7 
B/ 
2850 
04 
CD23D6 
280F 
3026 
D5 


PUSH 
PUSH 
PUSH 
LD 
CP 
CALL 
CALL 
EX 
CALL 
CALL 
LD 
JR 
LD 
CALL 
LD 
ADD 
RST 
LD 
INC 
RST 
LD 
LD 
CALL 
POP 
POP 
POP 
RET 


PUSH 
LD 
LD 
PUSH 
POP 
RST 
OR 
JR 
INC 
CALL 
JR 
JR 
PUSH 


HL 

DE 

BC 

A,B 

D 

NZ, ODBC4H 
Z,OCAE9H 
DE,HL 
ODBC8H 
ODSDSH 
À, 2AH 

C, OD595H 
A, 20H 
OBB5SAH 
HL, OOOCH 
HL, DE 
20H 

E,A 

HL 

20H 

D, A 

À, 02H 
OCAEBH 
BC 

DE 

HL 


BC 

CH 

B, 00H 

IX 

HL 

20H 

A 
Z,OD605H 
B 

OD623H 
Z,ODSCAH 
NC, OD5E3H 
DE 


;sauver registres 


:entrées/ligne 

égale entrées sorties? 

:Si différent, sortir 3 espaces 
:Sinon sortir ‘’CR/LF' 


ssortir nom de fichier 
steste, si fichier READ ONLY 
:Si R/0, sortir ‘’*' 

; "espace" 

3 TXT OUTPUT 


3RAM LAM, LD A, CHL) de Ram 


3RAM LAM, LD A, CHL) de Ram 


message système 2, sortir 
:3 espaces 


:buffer user 

;:dans hl 

3RAM LAM, LD A,CHL) de Ram 
teste si caractère 0 
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D5BE 
D5C1 
D5C2 
D5C3 
D5C4 
D5C6 
D5C8 


LELLL LILI LLLL LS) 


D5CA 
D5CB 
D5CE 
DSCF 
D5D2 
D5D3 
D5D4 
D5D5 
D5D6 
D5D7 
D5D8 
D5D9 
DSDA 
D5DB 
DSDC 
DSDD 
DSDE 
D5DF 
DSEO 
DSE1 


LLLEL SL ELLE LL ELLE) 


D5E3 
D5E4 
D5E6 
DSE8 
DSE9 
DSE À 
D5EB 
DSEC 
DSED 
DSEE 
DSEF 


110E00 
19 

D1 

78 
FE92 
38E9 
1856 


79 


DE, OOOEH 
HL, DE 

DE 

A,B 

92H 
C,OD5B1H 
0D620H 


HL 

OD8F 2H :déterm.nbre blocs occupés du fichier 
(SP), HL 

DE, 000CH 

HL, DE 

20H 3RAM LAM, LD A, CHL) de Ram 

E,A 


20H 3RAM LAM, LD A,CHL) de Ram 


0D620H 


A, C 
92H 
Z,0D620H 
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D5FO 
D5F2 
D5F5 
D5F6 
D5F7 
D5F8 
D5F9 
DSFA 
DSFD 
D5FE 
D5FF 
D602 
D603 
D604 


LES RSR ELE SL) 


D605 
D606 
D607 
D608 
D60A 
D60B 
D60C 
D60D 
D610 
D613 
D614 
D615 
D616 
D619 
D61A 
D61B 
D61C 
D61D 
D61E 
D61F 
D620 
D621 
D622 


LESLELLLLLELEZEE ZX) 


D623 


2600 
CD3AD6 
44 

4D 

19 

28 

EB 
210E00 
19 

EB 
CD1EBS 
C1 

D1 

ET 


oc 

C5 

D5 
36FF 
23 

13 

EB 
010B00 
CD1BB9 
EB 

E3 

EB 
CDF2D8 
EB 

ET 

73 

23 

72 

C1 

37 

61 

C1 

C9 


ES 


LD 
CALL 
LD 
LD 
ADD 
DEC 
EX 
LD 
ADD 
EX 
CALL 
POP 
POP 
POP 


INC 
PUSH 
PUSH 
LD 
INC 
INC 
EX 
LD 
CALL 
EX 
EX 
EX 
CALL 
EX 
POP 
LD 
INC 
LD 
POP 
SCF 
LD 
POP 
RET 


PUSH 


H, 00H 
OD63AH 
B.H 
CL 
HL, DE 
HL 

DE, HL 
HL, OOCEH 
HL, DE 
DE,HL 
OB91EH 
BC 

DE 

HL 


C 

BC 

DE 
CHL),0FFH 
HL 

DE 

DE, HL 
BC, 000BH 
0B91BH 
DE, HL 
(SP), HL 
DE, HL 
OD8F2H 
DE, HU 

HL 
CHL),E 
HL 
CHL),D 
BC 


H, C 
BC 


HL 


:marque fin dans buffer user 
;:de := pointeur d'enregistrement 


: longueur nom de fichier + extension 
:KL LDIR, d'enreg. dans buffer user 
spointeur d'enregistrement dans hl 
:début d'enregistrement dans hl 

: début d'enregistrement dans de 
;:déterm,nbre blocs occupés du fichier 
nombre blocs dans de 


:entrer dans buffer user 
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D624 
D625 
D626 
D628 
D629 
D62A 
D62B 
D62D 
D62E 
D62F 
D631 
D632 
D634 
D636 
D637 
D638 
D639 


LELLS LS ELL ELLES: 


D63A 
D63B 
D63C 
D63D 
D63E 
D63F 
D640 
D641 
D642 
D643 


LLLELELLLLLESSE) 


D644 
D647 
D6LA 
D64C 
D6HE 


LLLELE LL SSI LL LL SES) 


D651 
D654 
D657 
D659 


D5 
C5 
060B 
13 
23 
1A 
E67F 
UF 
E7 
E67F 
B9 
2002 
10F2 
C1 
Di 
El 
C9 


D5 
54 
5D 
29 
19 
29 
19 
29 
D1 
cg 


CD83D6 
CD98D6 
3025 
3E05 
C3B1CD 


CD83D6 
CD98D6 
3018 
E5 


PUSH DE 

PUSH BC 

LD B, OBH 

INC DE 

INC HL 

LD À, (DE) 

AND 7FH 

LD C,A 

RST 20H 3RAM LAM, LD A, (HL) de Ram 

AND 7FH 

CP C 

JR NZ, 0D636H 

DJNZ 0D628H 

POP BC 

POP DE 

POP HL 

RET 

hl:=h1*14 

PUSH DE :ranger 

LD D,H 

LD E,L 

ADD HL,HL shl dernière valeur dans h1*2 
ADD HL, DE :hl dernière valeur dans h1*3 
ADD HL, HL :h1 dernière valeur dans h1*6 
ADD HL, DE shl dernière valeur dans hl1*7 
ADD HL,HL :hl dernière valeur dans h1*14 
POP DE 

RET 

CALL 0D683H ;:nbre entrées Dir & tab affect sur 0 
CALL 0D698H :cherche nom fichier et déterm.affect 
JR NC, OD671H 

LD À, OSH sortir message système 5, file 
JP OCDB1H already exists, interrompre instr. 


chercher nom de fichier dans le directory 


CALL 0D683H :nbre entrées dir et tab affect sur 0 
CALL OD698H 3cherche nom fichier et déterm.affect 
JR NC,0D671H  ;=> pas trouvé 

PUSH HL numéro entrée Dir trouvée 
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D65A 
D65D 
D660 
D661 
D664 
D665 
D668 
D669 
D66A 
D66B 
D66E 
D670 
D671 
D675 


210900 
CDSFCA 
EB 
CDDFDB 
ET 
FD/E05 
B7 

37 

Co 
CDA2D6 
38FB 
37 
FD3605FF 
cg 


LD 
CALL 
EX 
CALL 
POP 
LD 
OR 
SCF 
RET 
CALL 
JR 
SCF 
LD 
RET 


HL, 0009H 

OCA9FH shishi+iy, adresse FCN OPENIN 

DE, HL :dans de 

ODBDFH :32 octets,entrée DIR dans FCB OPENIN 
HL >numéro de l'entrée DIR trouvée 


A, CIY+O5H) fichier actif sur ce lecteur? 
À 


NZ :=> fichier est actif 

OD6A2H slire directory Jusqu'à fin, déterm. 

C, OD66BH nombres fichiers et blocs occupés 
:Directory lu 

(IY+05H),0FF:marquer fichier sur ce lecteur comme 
sactif 


#*#*#*##** cherche nom de fichier dans directory, détermine affectation blocs 


D676 
D679 
D67C 
D67E 
D681 


LELLLLLLLLLS ESS) 


D683 
D684 
D687 
D688 
D68B 
D68E 
D68F 
D690 
D691 
D694 
D695 


CD83D6 
CD98D6 
30F3 
CDAAD4 
18F6 


C5 
CDIFCS 
C1 
21FFFF 
FD/E05 
B7 
C0 
ES 
CD14D8 
ET 
C3A8D9 


CALL OD683H :nbre entrées Dir & tab affect sur 0 
CALL 0D698H :cherche nom fichier et déterm.affect 
JR NC,0D671H  ;=> pas trouvé 

CALL OD4AAH : 

JR 0D679H 

déterminer affectation blocs disque 

PUSH BC :=> nom de fichier 

CALL 0C51FH :chercher piste 0 

POP BC 

LD HL, OFFFFH 

LD A, C(IY+05H) :;fichier sur ce lecteur actif? 

OR A 

RET NZ => fichier est ouvert 

PUSH HL 

CALL 0D814H tab affect à 0, occuper blocs Dir 
POP HL 

JP OD9A8H 


x#e##s###* Chercher nom de fichier, affectation blocs + nombre fichiers 


D698 


D69B 
D69C 
D69F 


CDA2D6 


DO 
CDD8D7 
30F7 


CALL 


RET 
CALL 
JR 


OD6A2H compte nombre blocs dans table 
d'affectation, fichiers 

NC 3=> pas d'autre entrée 

OD7D8H nom fichier indiqué= entrée Dir? 

NC, OD698H  ;=> différent, chercher et déterminer 
affectation 
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D6A1 


RERO DEEE HE 


D6A2 
D6A3 
D6AG 
D6A7 
D6A9 


D6AC 
D6AD 
D6AE 
D6BO 
D6B1 
D6B2 
D6B5 
D6B7 


C9 


23 
FD/E05 
B7 
2011 
CD1CD9 


DO 

TA 
FEES 
37 

C8 
CDA8DS 
3EFF 
C33CD8 


RET 


;trouvé même nom de fichier 


déterminer nombre de fichiers sur disque 


INC 
LD 
OR 
JR 
CALL 


RET 
LD 
CP 
SCF 
RET 
CALL 
LD 
JP 


AL 


;compteur d'entrées 


À, (IY+05H) ;OPEN actif sur ce lecteur? 


À 


NZ,OD6BAH  :=> Open est actif 


0D91CH 


NC 
À, (DE) 
OESH 


pl 

OD9A8H 
À, OFFH 
OD83CH 


enregistrement dans buffer, pointeur 
d'enregistrement => entrée Dir 

;:=> pas d'autre entrée 

:de pointeur sur entrée Dir 

marque fichier supprimé 


3=> Si entrée supprimée 
>Sinon augmenter nombre d'entrées 


:détermine nombre de blocs occupés 
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REA ### ontrée D6A2, si Open actif 


D6BA CDB8D9 CALL OD9B8H teste, si pos. entrée dir ok 
D6BD DO RET NC 

D6BE C31CD9 JP 0D91CH 

EEE E Nombre caractères dans le fichier dans hl 
D6C1 212100 LD HL,0021H 

D6CH 19 ADD HL, DE 

D6C5 C3F9DB JP ODBFH ;:ld hl,(hl) 
LELLLLLLLLLLLLL SZ: 

D6C8 212300 LD HL, 0023H 

D6CB 19 ADD HL, DE 

D6CC 7E LD À, CHL) 

D6CD B7 OR À 

D6CE C0 RET NZ 

D6CF CDC1D6 CALL OD6C1H 

D6D2 7C LD AH 

D6D3 1F RRA 

D6D4 1F RRA 

D6D5 1F RRA 

D6D6 1F RRA 

D6D7 E60F AND OFH 

D6D9 47 LD B, A 

D6DA 29 ADD HL,HL 

D6DB 7C LD AH 

D6DC E61F AND 1FH 

D6DE 4F LD C,A 

D6DF C5 PUSH BC 

D6E0O 210F00 LD HL, 0O00FH 

D6E3 19 ADD HL, DE 

D6E4 7E LD A, CHL) 

D6ES A8 XOR B 

D6E6 200F JR NZ, OD6F7H 

D6E8 3E04 LD A, O4H 

D6EA CDS4DA CALL ODAS4H masque extension dans accu 
D6ED ?2F CPL 

D6EE 47 LD B,A 

D6EF 2B DEC HL 

D6FO 2B DEC HL 

D6F1 7E LD A, CHL) 

D6F2 A9 XOR C 
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D6F3 
D6F4 
D6F6 
D6F7 
D6F8 
D6F9 


LÉSESSSLLLL LIL) 


DGFA 
D6FD 
D6FE 
D6FF 
D700 
D701 
D702 
D703 
D704 
D707 
D70A 
D70B 


LLLE LS LL LL LL LE) 


D70C 
D70OD 
D710 
D711 
D713 
D714 
D715 
D718 
D719 
D71A 
D71C 
D71D 
D71E 
D71F 
D720 
D721 
D723 
D726 
D727 
D728 


AO 
2001 
37 
C1 
9F 
C9 


210D00 


D5 
CDC1D6 


AND 
JR 

SCF 
POP 
SBC 
RET 


B 
NZ, OD6F 7H 


BC 
A, À 


HL, 000DH 
HL, DE 
CHL),C 
HL 

HL 
(HL),B 
HL 

DE,HL 
BC,0011H 
OCAAFH vide (de) à (de+bc) 
DE, HL 


DE 
OD6CH 
AH 

OFH 

H, A 

HL 

HL, 0010H 
HL,DE 

C, CHL) 


ODBEBH 
HL, BC 
DE 
DE 
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D729 
D72C 
D72D 
D72E 


LÉLSLSLELL SRE SES: 


D72F 
D732 
D/34 
D737 
D738 
D739 
D73B 
D73E 
D741 
D743 
D746 
D747 
D/48 
D749 
D74C 
D74D 
D74F 
D751 
D/752 
D753 
D754 
D755 
D756 
D757 
D758 
D75B 


LÉRLLELESLLELS SE) 


D75D 
D75F 
D760 
D761 
D762 
D763 
D/764 
D765 


CDF3DB 
3F 
Di 
cg 


CDC1D6 
3E03 
CD5S4DA 
A5 

UF 
3E02 
CD54DA 
CDEBDB 
3E06 
CD54DA 
47 

B7 

7D 
211100 
19 
280€ 
E607 
87 

85 

6F 

8c 

95 

67 

Es 
CDF9DB 
180B 


E6OF 
85 
6F 
8c 
95 
67 
ES 
6E 


CALL 
CCF 
POP 
RET 


CALL 
LD 
CALL 
AND 
LD 
LD 
CALL 
CALL 
LD 
CALL 
LD 
OR 
LD 
LD 
ADD 
JR 
AND 
ADD 
ADD 
LD 
ADC 
SUB 
LD 
PUSH 
CALL 
JR 


AND 
ADD 
LD 
ADC 
SUB 
LD 
PUSH 
LD 


ODBF3H shl = de? Carry si égal 


DE 


OD6C1H 

A, 03H 

ODAS4H ;:masque bloc dans accu 
L 

C, À 

A, 02H 

ODAS4H ;:Shift bloc dans accu 
ODBEBH 

À, 06H 

ODASUH :No bloc maxi, octet fort dans accu 
B,A 

Â 

A, L 

HL,0011H 

HL, DE 

Z,0D75DH 

07H 

AA 


, 


, 


TT 


, 


Ter > 


H, À 

HL 

ODBF SH :1d hl,(h1) 
0D768H 


L, CHE) 


= TT-97:- 


D/66 
D768 
D769 
D76A 
D76C 
D76D 
D76F 
D772 
D773 
D774 
D776 
D777 
D778 
D779 
D77A 


CELLES SLT ES ÉLL LS SE: 


D/77B 
D77C 


HORMONE EMMA 


D77D 
D780 
D781 
D782 
D783 
D/84 
D785 
D787 
D788 
D789 
D78A 
D78B 


LÉLELELS ESS SIS ES: 


D78C 
D/8D 
D/8E 
D791 
D792 
D793 


2600 
7C 
B5 
280F 
F1 
3E02 
CDS4DA 
29 
3D 
20FC 
79 
B5 
6F 
37 
C9 


ET 
C9 


211000 
19 
7E 
34 
B7 
FO 
3601 
2B 
2B 
2B 
34 
cg 


D5 
D5 
CDBBD/ 
E3 
23 
CDDFDB 


LD 
LD 
OR 
JR 
POP 
LD 
CALL 
ADD 
DEC 
JR 
LD 
OR 
LD 
SCF 
RET 


POP 
RET 


, 00H 
H 


; 


rx ZT 


Z,0D77BH 

ÂF 

À, 02H 

ODAS4H :Shift bloc dans accu 
HE, HL 

À 

NZ, OD772H 

AC 

L 

L,A 


HL 


déterminer nombre enregistrements dans FCB 


LD 
ADD 
LD 
INC 
OR 
RET 
LD 
DEC 
DEC 
DEC 
INC 
RET 


occuper 
PUSH 
PUSH 
CALL 

EX 

INC 
CALL 


HL, 0010H 
HL, DE 

À, CHL) 
CHL) 

À 

P 

CHL), 01H 
HL 

HL 

HL 

CHL) 


entrée directory libre 


DE 

DE 

0OD7BBH ;chercher entrée libre 

(SP), HL zadr, entrée sur pile,hl=adr.nom fich 
HE :No lecteur pas nécessaire 

ODBDFH sécrire nom fichier et affect bloc 


dans enregistrement 
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D796 EI POP HL 


D797 CD7AD9 CALL OD97AH snom de fichier et affectation blocs 
D79A D1 POP DE :dans enregistrement Dir 
D79B C9 RET 


essemtessanss#s fixer nombre caractères dans le fichier sur 0 
D79C 212100 LD HL,0021H 


D79F 19 ADD HL, DE 
D7AO AF XOR À 

D7A1 77 LD CHL), A 
D7A2 23 INC HL 
D7A3 77 LD CHL), A 
D7A4 23 INC HL 
D7A5 77 LD CHL), A 
D7A6 C9 RET 


REREMEEEE JUgmenter de 1 nombre caractères dans le fichier 
D7A7 212100 LD HL, 0021H 


D7AA 19 ADD HL, DE 

D/7AB 34 INC CHL) 

D7AC CO RET NZ 

D7AD 23 INC HL 

D7AE 34 INC CHL) 

D7AF CO RET NZ 

D7BO 23 INC HL 

D7B1 34 INC CHL) 

D7B2 C9 RET 

LELLLLLLLLLLE LL LS) 

D7B3 CD83D6 CALL 0D683H snbre entrées Dir & tab affect sur 0 
D/7B6 CD98D6 CALL 0D698H ;cherche nom fichier et déterm.affect 
D7B9 1811 JR OD7CCH 

et Chercher entrée directory libre 

D7BB 21FFFF LD HL, OFFFFH 

D7BE 23 INC HU 

D/BF CD1CD9 CALL 0D91CH teste si place dans directory 

D7C2 3E07 LD A, 07H :sortir mess.système 7,directory full 
D7C4 D2B1CD JP NC,OCDB1H interrompre instruction si pas place 
D7C7 1A LD A, (DE) 3 (de)= pointeur enreg.dans enreg, Dir 
D/C8 FEES CP OE5H entrée supprimée? 

D/CA 20F2 JR NZ,OD7BEH ;=> pas libre, entrée suivante 
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D/CC F5 PUSH ÂF 


D7CD FD7E05 LD A, (IY+05H) OPEN actif sur ce lecteur? 

D/DO B7 OR A 

D/D1 3E09 LD À, O9H 

D/D3 CAB8CD JP Z, OCDB8H erreur, interrompre instruction 

D/D6 F1 POP AF 

D/D7 C9 RET 

EEEEEEEEEE cherche dans le directory le nom de fichier indiqué en bc 
D/D8 C5 PUSH BC (bc) => nom fichier du fichier voulu 
D7D9 DS PUSH DE ;: (de) => pointeur d'enregistrement 
D/DA ES PUSH HL 

D/DB 60 LD H,B adresse nom fichier indiqué dans h]l 
D/DC 69 LD LG 

D/DD 1A LD À, (DE) premier caractère entrée Dir,No user 
D/DE AE XOR CHL) égal à numéro user indiqué? 

D/DF 202D JR NZ,OD80EH ;si non, alors => 

D7E1 23 INC HL 

D7E2 13 INC DE 

D/E3 O060B LD B, OBH longueur nom de fichier + extension 
DES 7E LD A, CHL) 

D7E6 FE3F CP 3FH :Joker ‘’?' dans nom fichier indiqué? 
D/E8 2806 JR Z,0D7FOH :=> ignorer caractère dans entrée Dir 
D/EA JA LD À, (DE) caractère d'entrée Dir 

DEB AE XOR CHL) comparer avec caract. du nom fourni 
D/EC E67F AND 7FH 

D/EE 201E JR NZ,OD80EH  ;=> les noms sont différents 

D/FO 23 INC HL :Sinon prochain caract. nom indiqué 
D/F1 13 INC DE prochain caractère entrée Dir 

D7F2 10F1 DJNZ OD7E5H :tester 

D/F4 7E LD À, CHL) 

D7F5 3C INC A 

D7F6 280C JR Z,0D804H 

D/F8 3E04 LD À, OUH 

D/FA CDS4DA CALL ODAS4H masque extension dans accu 

D7FD 2F CPL 

D7FE 47 LD B,A 

D7FF A LD À, (DE) 

D800 AE XOR (HL) 

D801 AO AND B 

D802 2004 JR NZ, OD80EH 

D804 23 INC HL 
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D805 
D806 
D807 
D808 
D809 
D80A 
D80C 
D80D 
D80E 
D80F 
D810 
D811 
D812 
D813 


LELLLSLSISLSSLLL SES 


D814 
D816 
D819 
D81B 
D81E 
D81F 
D820 
D822 
D825 
D827 
D828 
D829 
D82A 
D82B 
D82D 
D82F 
D832 
D833 
D835 
D838 
D839 
D83A 
D83B 


LELESL SES ES SELLES) 


D83C 


13 
23 
13 
7E 
3C 
2802 
1A 
AE 
ET 
Di 
Ci 
co 
37 
C9 


3E05 
CD4SDA 
3E03 
CDEBDB 
23 

EB 
3E0E 
CD3FDA 
3600 
23 

1B 

7A 

B3 
20F8 
3E09 
CDASDA 
EB 
3E0E 
CD3FDA 
73 

23 

72 

cg 


ES 


INC 
INC 
INC 
LD 

INC 
JR 

LD 

XOR 
POP 
POP 
POP 
RET 
SCF 
RET 


DE 

AL 

DE 

À, CHL) 
À 
Z,OD80EH 
À, (DE) 
CHL) 
HL 

DE 

BC 

NZ 


sfichier pas trouvé 
marque OK 


vide table affectation, inscrit blocs Dir 


LD 
CALL 
LD 
CALL 
INC 
EX 
LD 
CALL 
LD 
INC 
DEC 
LD 
OR 
JR 
LD 
CALL 
EX 
LD 
CALL 
LD 
INC 
LD 
RET 


À, OSH 
ODA4SH 
À, 03H 
ODBEBH 
HE 
DE,HL 
À, OEH 
ODA3FH 
CHL), OOH 
HL 

DE 

A,D 

Ë 

NZ, 0D825H 
À, OH 
ODA4SH 
DE, HL 
À, OEH 
ODA3FH 
(HL),E 
HL 
CHL),D 


:numéro bloc maxi dans hl 


:divise numéro bloc par 8 
;:correction, 22 octets pour table 
:d'affectation 


:(hl)=> début table act.d'affectation 
:8 blocs = 1 octet comme marque libre 
;octet suivant 

:diminuer nombre 

:les 22 octets tous annulés? 


;=> pas encore tous annulés 


:taille en blocs de directory dans hl 


3:(h1)=> début table act.d'affectation 
sinscrire blocs Dir comme occupés 


occupe blocs de cette entrée dans table d'affectation 


PUSH 


HL 


;nombre entrées Dir testées 
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D83D 
D83E 
D83F 
D840 
D843 
D8ut 
D846 
D847 
D848 
D84A 
D84D 
D8uE 
D850 
D851 
D852 
D853 
D854 
D855 
D857 
D858 
D85A 
D85D 
D85E 
D85F 
D860 
D861 
D864 
D865 
D867 
D868 
D869 
D86A 
D86B 


LÉESÉELSISLSISIS SSL SEL: 


D86C 
D86D 
D86E 
D86F 
D870 
D872 
D875 


D5 

C5 

UF 
211000 
19 
0610 
GE 

25 
3E06 
CD54DA 
B7 
2803 
05 

7E 

23 

57 

B3 
280E 
ES 
3E05 
CD4SDA 
7D 

93 

7C 

SA 
D4GCD8 
ET 
10DF 
C1 

D1 

E 

37 

C9 


C5 

D5 

D5 

EB 
3E03 
CDEBDB 
EB 


PUSH 
PUSH 
LD 
LD 
ADD 
LD 
LD 
INC 
LD 
CALL 
OR 
JR 
DEC 
LD 
INC 
LD 
OR 
JR 
PUSH 
LD 
CALL 
LD 
SUB 
LD 
SBC 
CALL 
POP 
DINZ 
POP 
POP 
POP 
SCF 
RET 


DE 

BC 

C,A 

HL, 0010H 
HL, DE 

B, 10H 

E, CHL) 
HL 

À, O6H 
ODAS4H 

À 
Z,0D853H 
B 

À, CHL) 
HL 

D,A 

E 
Z,0D865H 
HL 

À, 05H 
ODA4SH 
AL 

É 

AH 

A, D 

NC, OD86CH 
HL 
OD846H 
BC 

DE 

AL 


;pointeur sur début entrée dns enreg. 


:décalage par rapport affectat. blocs 
;nombre d'entrées d'affectation par 


zentrée Dir 


3No bloc maxi, octet fort dans accu 
3Si O alors entrées sur 1 octet 
:=> entrées sur un octet 


pas d'autres blocs occupés 


snuméro bloc maxi dans hl 


:numéro bloc valable? 


:valable=> occuper/libérer 
:dans table d'affectation 


occuper/libérer No bloc dans position bit table d'affect. 


PUSH 
PUSH 
PUSH 
EX 
LD 
CALL 
EX 


BC 
DE 
DE 
DE,HL 
À, 03H 
ODBEBH 
DE, HL 


numéro bloc occupé 


:diviser No bloc par 8 
résultat dns de,octet dns tab affect 
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D876 
D878 
D87B 
D87C 
D87D 
D87E 
D880 
D881 
D883 
D884 
D885 
D886 
D888 
D889 
D88A 
D88B 
D88C 
D88D 
D88E 
D88F 
D890 
D891 
D892 


LELLSLESELLLLELSE, 


D893 
D894 
D895 
D897 
D89A 
D89B 
D89D 
D8A0 
D8A3 
D8Au 
D8A5 
D8A7 
D8A8 
D8A9 
D8AA 
D8AB 
D&AD 


3E0E 
CD3FDA 
19 
Di 
7B 
E607 
5F 
301 
jé 
OF 
1D 
20FC 
47 
A1 
UF 
78 
2F 
A6 
B1 
77 
D1 
c1 
cg 


C5 

D5 
3E05 
CD4SDA 
EB 
3E0E 
CD3FDA 
018008 
7E 

Aî 
280€ 
OF 

UF 

7A 

B3 
2812 
1B 


LD 
CALL 
ADD 
POP 
LD 
AND 
LD 
LD 
INC 
RRCA 
DEC 
JR 
LD 
AND 
LD 
LD 
CPL 
AND 
OR 
LD 
POP 
POP 
RET 


cherche 
PUSH 
PUSH 
LD 
CALL 
EX 
LD 
CALL 
LD 
LD 
AND 
JR 
RRCA 
LD 
LD 
OR 
JR 
DEC 


À, OEH 
ODA3FH 
HL, DE 
DE 

AE 
07H 
E,A 
A,01H 
E 


Ë 

NZ, OD884H 
B,A 

C 
C,A 
AB 
CHL) 

C 
CHL), A 
DE 

BC 


3(hl)=> début table affectation act. 
:sauter nombre d'octets nécessaire 
numéro de bloc occupé dans de 


;:déterminer position bit dans table 
d'affectation 


:0Rer modèle bits act. avec bit bloc 
;et sauvegarder dans table d'affect. 


bloc libre dans table d'affectation 


BC 

DE 

À, OSH 
ODA4SH 
DE, HL 

À, OEH 
ODA3FH 
BC,0880H 
À, (HL) 

C 
Z,0D8B3H 


C,A 
A, D 
E 
Z,0D8BFH 
DE 


numéro bloc maxi dans hl 


:(hl)=> début act, table d'affect, 
:b:= compteur de bits, c:=modèle bits 
:entrée de table affect. dans accu 
modèle bits pour bloc 

3=> trouvé bloc libre 

tester bit suivant 


3:de:= nombre blocs encore à tester 
:plus d'autres blocs? 

3=> trouvé aucun bloc libre,Disc Full 
diminuer nombre blocs à tester 
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D8AE 10F3 DUNZ OD8A3H sboucle bits sur 8 bits 


D8B0 23 INC HL prochain octet dans table d'affect. 
D8B1 18ED JR OD8A0H continuer à tester 

* détermine No bloc d'après position bit, occupe dans table d'affectation 
D8B3 7E LD A, CHL) modèle bits de tab affect dans accu 
D8B4 B1 OR C occuper bloc libre trouvé 

D8B5 77 LD CHL), A zet placer dans table d'affectation 
D8B6 3E05 LD A, OSH 

D8B8 CDA4SDA CALL ODA4SH numéro de bloc maxi dans hl 

D8BB B7 OR Â 

D8BC ED52 SBC HL, DE :calculer numéro de bloc, dans h1 
D8BE 37 SCF marque que trouvé bloc libre 

D8BF D1 POP DE 

D8CO C1 POP BC 

D8C1 C9 RET 


***** nombre bloc occupés de table d'affectation pour affichage directory 
D8C2 C5 PUSH BC 


D8C3 ES PUSH HL 

D8C4 210000 LD HL, 0000H shl est compteur de blocs 

D8C7 ES PUSH HE :Sur pile 

D8C8 3E05 LD A, OSH 

D8CA CDUSDA CALL ODA4SH numéro de bloc maxi dans hi 

D8CD EB EX DE, HL :et dans de 

D8CE 3EOE LD À, OEH 

D8DO CD3FDA CALL ODA3FH 3(h1) => début actuelle ALV 

D8D3 018008 LD BC, 0880H :b:=compteur de bits, c:= modèle bits 
D8D6 7E LD A, CHL) :octet de tab d’affect. dans accu 
D8D7 Ai AND C position de bit marquée occupée? 
D8D8 2003 JR NZ, OD8DDH ;=> pas occupé 

D8DA E3 EX (SP), HL compteur dans hl 

D8DB 23 INC HL >augmenter compteur et 

D8DC E3 EX (SP), HL :de nouveau sur la pile 

D8DD 79 LD A, C smodèle bits dans accu 

D8DE OF RRCA :amener modèle bits suivant par rotat 
D8DF 4F LD C,A set ranger à nouveau dans c 

D8E0 7A LD A D :de:= nombre blocs encore à tester 
D8E1 B3 OR E :nombre déjà nul? 

D8&E2 2806 JR Z,OD8EAH 3=> plus d'autre bloc à tester 
D&u 1B DEC DE diminuer nombre de blocs à tester 
D&S5 10EF DJNZ OD8D6H :boucle de bits 
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D8E7 
D8&E8 


LLLÉLLSS ESS L ESS SE) 


D8E A 
D8EB 
D8EE 
D8EF 
D8FO 
D8F1 


LELLLLL ESS LS SRE) 


D8F2 
D8F3 
D8F6 
D8F7 
D8FA 
D8FC 
D8FF 
D900 
D901 
D902 


D904 
D905 
D906 
D907 
D908 
D90A 
D90B 
D90C 
D90E 
D90F 
D910 
D912 
D915 
D916 
D917 
D918 
D919 
D91A 


23 
18E9 


E1 
CD10D9 
EB 
ET 
C1 
C9 


D5 
211000 
19 
110010 
3E06 
CDS4DA 
B7 

7E 

23 
2803 


B6 
15 
23 
B7 
2801 
1C 
15 
20EC 
EB 
D1 
3E02 
CDS54DA 
3D 
3D 
3D 
c8 
29 
18FB 


INC 
JR 


HU 
OD8D3H 


:prochain octet de table d'affect. 
zet continuer à tester 


détermine nombre effectif blocs occupés 


POP 
CALL 
EX 
POP 
POP 
RET 


détermine nombre de 


PUSH 
LD 
ADD 
LD 
LD 
CALL 
OR 
LD 
INC 
JR 


OR 
DEC 
INC 
OR 
JR 
INC 
DEC 
JR 
EX 
POP 
LD 
CALL 
DEC 
DEC 
DEC 
RET 
ADD 
JR 


AL 
0D910H 
DE,HL 
HL 

BC 


DE 

HL, 0010H 
HL, DE 
DE, 1000H 
À, 06H 
ODAS4H 

A 

À, CHL) 
AL 
Z,0D907H 


CHL) 

D 

HL 

À 

Z, OD90BH 
E 

D 

NZ, OD8FAH 
DE,HL 

DE 

À, 02H 
ODAS4H 

À 

À 

À 

Z 

HL,HL 
0D917H 


sretire comptr blocs occupés de pile 
:déterm.affectat.effect.avec BSH & hl 
srésultat dans de 


blocs occupés par le fichier 
début d'une entrée Dir dns enreg Dir 
zentrer décal.par rapport affect bloc 


:d:= octets table d'affectation 

3e:= compteur blocs occupés 

3No bloc maxi, octet fort dans accu 
:si 0,que valeurs 1 oct.ds tab affect 
;un octet de table d'affectation 
augmenter pointeur dans table affect 
soctet fort No bloc maxi=0?, alors ne 
tester qu'un octet 

:Sinon tester octet faible 


tester octet table affect. si 0 
aucun bloc occupé 

augmenter compteur blocs occupés 
diminuer nombre 

encore octets dans la table? 
nombre dans hl 


:Shift bloc dans accu 
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EOREOEMEH NEED EEE HE 


D91C E5 PUSH HL 


D91D C5 PUSH BC ;bc => nom fichier temporaire 

DE 7D LD AL :nombre entrées testées ds l'enreg. 
D91F E603 AND 03H 34 sont possibles, 0-3 

D921 2011 JR NZ, OD934H 

D923 EB EX DE, HL ;snombre entrées dans de 

D924 3E07 LD A, 07H 

D926 CDASDA CALL ODA4SH zentrées Dir maxi dans hl 

D929 CDF3DB CALL ODBF3H shl = de? testé toutes les entrées 
D92C 3F CCF :possibles 

D92D EB EX DE, HL 

D92E 3015 JR NC,OD94SH  ;toutes lues => 

D930 CD48D9 CALL 0D948H ;nouvel enreg. dans buffer enreg, 
D933 AF XOR A 

D934 47 LD B, A 

D935 3E08 LD À, 08H 

D937 CD3FDA CALL ODA3FH 3(hl)=>buffer enreg.,à nouv sur début 
D93A 112000 LD DE, 002CH ;:longueur d'une entrée dans le buffer 
D93D O4 INC B : (32 octets) 

D93E 1801 JR OD941H 

LELSÉSSSRLSLSRE SE] 

D9u0 19 ADD HL, DE ;:pointeur d'enregistrement sur 

D941 10FD DJN7 OD940H sprochain début Dir 

D943 EB EX DE, HL ;spointeur d'enregistrement dans de 
D9u4 37 SCF 

D945 C1 POP BC 
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D946 
D947 


LÉLSSLS SLR EL LS S) 


D948 
D9HA 
D94D 
D94E 
D950 
D953 
D956 
D958 
D95B 
D95C 
D95F 
D960 
D961 
D963 
D966 
D967 
D96A 
D96B 
D96C 
D96D 
D96E 
D96F 
D970 
D973 
D974 
D975 
D978 
D979 


LRSÉS LÉ SSL LS SE) 


D97A 
D97B 
D97C 
D97E 
D981 
D982 
D984 
D987 


E1 
cg 


3E02 
CDEBDB 
EB 
3E08 
CD3FDA 
CDE8D9 
3E0B 
CD4SDA 
EB 
CDF3DB 
EB 

DO 
3E0C 
CD3FDA 
19 
CDC8D9 
BE 

c8 

F5 

EB 

29 

29 
CDB8D9 
EB 

D1 
DA33D2 
72 

C9 


ES 

C5 
3E02 
CDEBDB 
EB 
3E08 
CD3FDA 
0E01 


POP 
RET 


LD 
CALL 
EX 
LD 
CALL 
CALL 
LD 
CALL 
EX 
CALL 
EX 
RET 
LD 
CALL 
ADD 
CALL 
CP 
RET 
PUSH 
EX 
ADD 
ADD 
CALL 
EX 
POP 
JP 
LD 
RET 


PUSH 
PUSH 
LD 
CALL 
EX 
LD 
CALL 
LD 


AL 


À, O2H 
ODBEBH 
DE,HL 
À, 08H 
ODA3FH 
OD9E 8H 
À, OBH 
ODAUSH 
DE, HL 
ODBF3H 
DE,HL 
NC 

À, OCH 
ODA3FH 
HL, DE 
OD9C8H 
CHL) 

[A 

AF 

DE, HL 
HL,HL 
HL,HL 
OD9B8H 
DE,HL 
DE 
C,0D233H 
CHL),D 


HU 

BC 

À, 02H 

ODBEBH 
DE,HL 

À, 08H 

ODA3FH 
C,01H 


;nombre d'entrées testées/4 
;srésuitat nbre enreg, testés dans de 


3(h1) => numéro d'enregistrement 
amène enr., No ds hl, ds buffer enr. 


snbre entrées DIR à tester dans hl 
shi=de, testé toutes entrés possibles? 
;:=> lu toutes les entrées 

:(h1) => bloc valeur de contrôle 
:calcul valeur contrôle sur l’enreg. 


;égale valeur contrôle sauvegardée? 
;:=> Sont égales 


erreur 


numéro de l'entrée Dir occupée 
adresse buffer 


sdivise hl/4 
srésultat No enregistrement dans de 


3(h1) => buffer d'enregistrement 
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D989 
D98C 
D98E 
D991 
D992 
D995 
D996 
D998 
D99A 
D99D 
D99E 
D9A1 
D9A2 
DSA3 
D9A4 
D9A8 
D9AS 
D9AA 
D9AB 
D9AC 
D9AE 
D9B1 
D9B2 
D9B3 
D9B4 
D9B5 
D9B6 
D9B7 


LELSELLLELSLELE) 


D9B8 
D9B9 
DSBA 
D9BC 
D9BF 
D9C0 
DgC1 
D9c2 
D9C3 
D9C6 
D9C7 


CDF3D9 
3E0B 
CDA5DA 
EB 
CDF3DB 
EB 
3004 
3E0C 
CD3FDA 
19 
CDC8D9 
77 

c1 

ET 
CDB8D9 
D5 

E5 

EB 

13 
302 
CD35DA 
73 

23 

72 

ET 

Di 

37 

cg 


D5 

ES 
3E02 
CD35DA 
5€ 

23 

56 

E1 
CDF3DB 
D1 

C9 


CALL 
LD 
CALL 
EX 
CALL 
EX 
JR 
LD 
CALL 
ADD 
CALL 
LD 
POP 
POP 
CALL 
PUSH 
PUSH 
EX 
INC 
LD 
CALL 
LD 
INC 
LD 
POP 
POP 
SCF 
RET 


ODSF3H 
À, OBH 
ODA4SH 
DE, HL 
ODBF3H 
DE, HL 
NC, OD9A2H 
À, OCH 
ODA3FH 
HL, DE 
OD9C8H 
CHL), A 
BC 

L 
OD9B8H 
DE 

HL 
DE,HL 
DE 

À, 02H 
ODA35H 
CHL),E 
HL 
CHL),D 
RL 

DE 


enregistrement Dir dans buffer 
secteur, sur disque s'il y a lieu 
nombre enreg,. Dir à tester dans hl 


shl=de? testé tous enreg, possibles? 


:(h1) => buffer valeur de contrôle 


:valeur de contrôle sur l'enreg. 
set entrer dans buffer valeur contr. 


iteste si nom de fichier est en 
:position correcte 


augmenter nombre entrées occupées 


:(hl) => nombre entrées Directory 
ranger nouveau nombre 


teste, si position de l'entrée Dir est ok 


PUSH 
PUSH 
LD 
CALL 
LD 
INC 
LD 
POP 
CALL 
POP 
RET 


DE 
HL 
À, 02H 
ODA35H 
E, CHL) 
HL 
D, (HL) 
AL 
ODBF3H 
DE 


:nombre entrées Dir 


:(h1)=> nombre entrées Dir occupées 
nombre dans de 


shl = de, entrée calculée ok? 
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#####k##remxx Valeur de contrôle sur l'enregistrement, résultat dans accu 


D9C8 
D9C9 
DSCA 
D9cc 
D9CE 
D9pi 
D9D2 
D9D3 
D9D4 
D9D6 
DOD7 
D9D8 


C5 
E5 
0680 
3E08 
CD3FDA 
AF 
86 
23 
10FC 
ET 
C1 
C9 


PUSH 
PUSH 
LD 
LD 
CALL 
XOR 
ADD 
INC 
DUNZ 
POP 
POP 
RET 


BC 

HL 

B, 80H ;:lonueur enregistrement 

À, O8H 

ODA3FH ;:(h1i) => buffer enregistrement 
À vider accu 

À, (HL) ;valeur de contrôle sur l'enregistr, 
HL 

OD9D2H 

HL 

BC 


*####XXX* tfoster si attribut READ ONLY, bit 7 premier caractère extension 


D9D9 
DSDA 
D9DD 


LELLLELLSSSS LEE) 


DODF 
DO 
DIÆ3 
Du 
DIS 
DSŒÆ6 
DSE 7 


CELL LELLESESRR SEE; 


DSE8 
DÆ9 
DSŒÆ A 
DSÆB 
DSŒÆE 
D9F1 


DÉS ÉRÉLSRSSRR EEE. 


D9F3 
D9F4 
D9F5 
D9F6 
D9F7 


ES 
210900 
1804 


ES 
210400 
19 
7E 
87 
ET 
cg 


C5 

D5 

ES 
CDO6DA 
CD4CC5 
180B 


C5 
D5 
ES 
C5 
CDO6DA 


PUSH 
LD 
JR 


HU 
HL, 0009H ;:premier caractère extension 
OD9E 3H 


tester si attribut SYS, bit 7 second caractère extension 


PUSH 
LD 
ADD 
LD 
ADD 
POP 
RET 


HL 
HL, OOOAH second caractère extension 
HL, DE 


À, (HL) caractère dans accu 
A À :Carry mis, si attribut mis 
HL 


amener enregistrement, No dans de, dans buffer enregistr. 


PUSH 
PUSH 
PUSH 
CALL 
CALL 
JR 


BC 

DE 

HL 

ODAO6H ;:déterm.piste et secteur avec No enr, 
OC5SACH ;:lire enregistrement dans buffer enr. 
ODS9FEH message d'erreur dans accu 


écrire enregistrement, No dans de, dans buffer secteur 


PUSH 
PUSH 
PUSH 
PUSH 
CALL 


BC 
DE 
HL 
BC :déterminer piste et secteur 
ODAO6H :d'après No d'enregistrement 
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D9FA 
D9FB 
DFE 
D9FF 
DAO2 
DAO3 
DAO4 
DAO5 


LELSSLLLIELLLE EL] 


DA06 
DAO7 
DAO8 
DAO9 
DAOC 
DAOD 
DAOF 
DA12 
DA13 
DAT4 
DA15 
DA18 
DAÏ9 
DATA 
DA1B 
DAIC 
DA1D 
DATE 
DAÏF 
DA20 
DA22 
DA23 
DA24 
DA27 
DA28 
DA29 
DA2C 
DA2D 
DA30 
DA31 
DA32 


c1 
CD2EC5 
B7 
C2B6CD 
ET 

D1 

C1” 

C9 


D5 

44 

UD 
CDIACS 
Di 
3E0D 
CDASDA 
u4 

4D 

AF 
CDASDA 
0B 

03 

7B 

95 

5F 

7A 

9C 

57 
30F7 
19 

E5 
CD24C5 
C1 

AF 
CD3FDA 
EB 
CD5AC5 
UD 

44 
C329C5 


POP 
CALL 
OR 
JP 
POP 
POP 
POP 
RET 


calcule 
PUSH 
LD 
LD 
CALL 
POP 
LD 
CALL 
LD 
LD 
XOR 
CALL 
DEC 
INC 
LD 
SUB 
LD 
LD 
SBC 
LD 
JR 
ADD 
PUSH 
CALL 
POP 
XOR 
CALL 
EX 
CALL 
LD 
LD 
JP 


BC 

OC52EH 

A 

NZ, OCDB6H 
AL 

DE 

BC 


z:écrire enreg. dans buffer secteur 
;:message d'erreur dans accu 
;:=> erreur, interrompre instruction 


piste et secteur d'après numéro d‘'enregistrement 


DE 

B,.H 
CL 
OC5TAH 
DE 

À, ODH 
ODA4SH 
B,.H 
CL 

À 
ODAUSH 


NC, ODA19H 
HL, DE 
HL 
OC524H 
BC 

A 
ODA3FH 
DE, HL 
OCSSAH 
CL 
B,H 
0C529H 


numéro d'enregistrement 

;adresse buffer pour un enregistremnt 
:dans bc et transmettre 

;aux routines du controller 


;: décalage de piste dans hl 
set DC 


:Nbre enregistr./piste dans hl 
;:correction 


:piste en c dans be54 pour Controller 


:(h1) => (a910/a920) 


;traduire numéro d'enregistrement 


;Secteur dans be55 pour Controller 
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RENE Charge header paramètres disque + accu dans hl 


DA35 
DA38 
DA39 
DA3C 
DA3D 
DASE 


CELSISLLI LS ESS LS 


DA3F 
DAU2 


LELLLSSSRELLSSS ES 


DAUS 
DAUG 
DAU8 
DAUB 
DAUC 
DAUD 
DAUE 
DAUF 
DASO 
DA51 


LÉELELLLÉSSSS SES) 


DAS4 
DA55 
DA58 
DA59 
DASA 


LLLLLSLELSLÉESS RSS 


DASB 
DASE 


LELSSLLSLSLESRES ES 


DA6O 
DA63 
DA65 
DA68 


FD8603 
6F 
FD8E04 
95 
67 
C9 


CD35DA 
C3F9DB 


F5 
3E0A 
CD3FDA 
F1 

85 

6F 

8c 

95 

67 
C3F9DB 


E5 
CD4SDA 
7D 
ET 
C9 


11E400 
1803 


11F400 
0E20 
CD74DA 
182B 


ADD 
LD 
ADC 
SUB 
LD 
RET 


A,(IY+03H) ajoute octet faible DPH actuel 

L,A ;:résultat dans 1 

A, (IY+O4H) ;ajoute octet fort, éventu.avec Carry 
L 
H, À soctet fort dans h 


charge contenu (header paramètres disque + accu) dans hl 


CALL 
JP 


ODA35H :(h1) => DPH + accu 
ODBF OH ;1d hl,(hl) 


charge contenu (DPB+accu) dans h1 


PUSH 
LD 
CALL 
POP 
ADD 
LD 
ADC 
SUB 
LD 
JP 


AF 

À, OAH 

ODA3FH ;(h1) => début bloc paramètres disque 
AF décalage voulu 

AL 

L, À 

AH ;calcule adresse nécessaire 

L 

H, À 

ODBF 9H 3LD HL, CHL) 


charge contenu (bloc paramètres disque + accu) dans accu 


PUSH 
CALL 
LD 
POP 
RET 


LD 
JR 


LD 
LD 
CALL 
JR 


HL 

ODAUSH ;charge contenu (DPB+accu) dans hl 
AL zoctet voulu dans accu 

HL 


DE, OCEHH 
ODA63H 


DE, OOF4H 
C, 20h 
ODA7 4H 
ODA95H 
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LLSSLLSLESSLEEE] 


DAG6A 
DAG6D 


LLSRELES LS LISE ES) 


DAGF 
DA71 
DA74 
DA77 
DA78 
DA7A 
DA7B 
DA7C 
DA7D 
HA7F 
DA8 
DA82 
DA84 
DA85 


LÉELLLLSLLLLLLE TX) 


DA86 
DA88 
DA8B 


LELLSSELLELLEL LE) 


DA8D 
DASF 
DA92 
DA95 
DA98 
DA99 
DA9B 
DA9C 
DA9D 
DA9F 


LELLS LE SLI SE S) 


DAAO 
DAA3 
DAAS 


CD6FDA 
1826 


OEFF 
11E400 
CDAODA 
C5 
160B 
03 

03 

OA 
FE3F 
2869 
15 
20F7 
C1 

C9 


0600 
CDAGDA 
1808 


0E20 
11E400 
CDAODA 
210D00 
09 
36FF 
23 

23 
36FF 
C9 


CDB6DA 
2845 
C9 


CALL ODA6FH :crée EFN, teste nom de fichier 
JR ODA95H 


crée nom fichier étendu, teste si espace ou ‘?’ 
LD C, OFFH 


LD DE, OOE 4H 

CALL ODAAOH :disposer nom de fichier dans buffer 
PUSH BC 

LD D,0BH :longueur du nom de fichier avec ext. 
INC BC 

INC BC :bc => nom de fichier 

LD À, (BC) premier caractère du nom dans accu 
CP 3FH :joker ‘?’ 

JR Z, ODAEAH 3Si oui => sortir Bad command 

DEC D 

JR NZ,ODA7BH  ;tester si prochain caractère ‘?’ 
POP BC ;trouvé aucun point d'interrogation 
RET :semble ok 

LD B, 00H 

CALL ODAAGH 

JR ODA95H 

LD C, 20H espace 

LD DE, OOE 4H :adresse buffer enregistrement 

CALL ODAAOH disposer nom de fichier 

LD HL, 000DH 

ADD HL, BC 

LD CHL),0FFH 

INC HL 

INC HL 

LD CHL),0FFH 

RET 


crée nom fichier étendu, teste si nom de fichier ok 


CALL ODAB6H crée nom de fichier étendu 
JR Z, ODAEAH :=>espace ds nom fichier, Bad Command 
RET 
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LRSRESSEL ESS EE, 


DAAG6 
DAA8 
DAAB 
DAAE 
DAAF 
DAB1 
DAB4 
DABS 


HEOMDEHEDE DE DEEE DEEE EN 


DAB6 
DAB7 
DABA 
DABB 
DABE 
DABF 
DACO 
DAC3 
DAC4 
DACS 
DAC6 
DAC7 
DAC9 
DACC 
DACD 
DACF 
DAD2 
DADS 
DAD8 
DAD9 
DADA 
DADB 
DADC 
DADF 
DAEO 
DAE2 
DAE3 
DAE4 
DAES 
DAE6 
DAE7 


0E20 
11E400 
CDB6DA 
C5 
OEOB 
CC8EDB 
C1 

C9 


ES 
CD98CA 
D5 
FD/E00 
12 

13 
FD7E01 
12 

13 

C5 

41 
0E08 
CD85DB 
78 
0E03 
CDS9ODB 
010300 
CDAFCA 
C1 

Di 

ET 

D5 
CDEDDA 
Di 
3008 
42 

4B 

13 

13 

TA 
FE20 


LD 
LD 
CALL 
PUSH 
LD 
CALL 
POP 
RET 


PUSH 
CALL 
PUSH 
LD 
LD 
INC 
LD 
LD 
INC 
PUSH 
LD 
LD 
CALL 
LD 
LD 
CALL 
LD 
CALL 
POP 
POP 
POP 
PUSH 
CALL 
POP 
JR 
LD 
LD 
INC 
INC 
LD 
CP 


C, 20H 
DE, O0E 4H 
ODAB6H 
BC 

C,OBH 
Z,ODB8EH 
BC 


RL 
OCA98H 
DE 

À, C(IY+00H) 
(DE), A 
DE 

À, CIY+01H) 
(DE), A 
DE 

BC 

B,C 
C,08h 
ODB85H 
A,B 
C,03H 
ODB9CH 
BC, 0003H 
OCAAFH 
BC 

DE 

HL 

DE 
ODAEDH 
DE 

NC, ODAEAH 
B,D 

C,E 

DE 

DE 

À, (DE) 
20H 


espace 
:décalage par rapport buffer enreg. 


:de=de+iy, buffer nom fichier étendu 
sranger 

numéro du lecteur actif 

:entrer dans nom fichier 


numéro user actif 
zentrer dans nom de fichier 


snom fichier a 8 caractères de long 
:8 espaces dans (de) à (de+7) 


extension a 3 caractères de long 

33 fois ffh dans (de+8h) à (de+0ah) 
vide (de+0bh) à (de+Odh) 

:b=> taille nom fichier ent, c=> Offh 
:de => début nom fichier étendu (EFN) 
shl => adr, nom fichier entrée (IFN) 


scrée EFN, si IFN correct 


bad command,nom fich. entrée pas ok 
adresse EFN dans bc 


sde => nom de fichier 


spremier caractère du EFN 
:espace? 
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DAE9 


HE HE DE MED DE DE DE DEN 


DAEA 


LÉLÉLLSLSÉESSÉESS SE] 


DAED 
DAEE 
DAF 
DAF2 
DAF3 
DAF4 
DAFS5 
DAF6 
DAF8 
DAFA 
DAFD 
DAFF 


LÉLESÉLLELLISISSS] 


DBO0 
DB01 
DBO2 
DB03 
DBO5 
DB0O6 
DBO8 
DBOA 
DBOC 
DB0E 
DB10 
DB11 
DB12 
DB15 
DB17 
DB19 
DB1B 
DB1D 
DBIE 
DB1F 
DB20 
DB22 


C9 


C3AFCD 


2B 
CD97DB 
3F 

D8 

UF 

ES 

C5 
FE3A 
2806 
CDASDB 
38F7 
37 


C1 
ET 
79 
383E 
13 
FE30 
381F 
FE3A 
301B 
D630 
UF 
12 
CDASDB 
FE30 
3810 
FE3A 
300€ 
B7 
OD 
co 
C6DA 
FE10 


RET 


JP 


teste IFN, crée EFN 


DEC 
CALL 
CCF 
RET 
LD 
PUSH 
PUSH 
CP 
JR 
CALL 
JR 
SCF 


St TS 
POP 
POP 
LD 
JR 
INC 
CP 
JR 
CP 
JR 
SUB 
LD 
LD 
CALL 
CP 
JR 
CP 
JR 
OR 
DEC 
RET 
ADD 
CP 


OCDAFH 


HE 
ODB97H 


C 

C,A 

HL 

BC 

3AH 

Z, ODBOOH 
ODBASH 
C, ODAFG6H 


Sortir Bad command, interr.instr. 


avec Drive et USER 
: Dummy 
tester longueur IFN 


erreur apparue! pas de nom fichier? 


caractère est un ‘:°7 

soui, alors => 

sun caract. de IFN, convert.majusc, 
stester si ‘:’ 

trouvé aucun ‘:’ dans le nom 


tester si numéro USER valable 


BC 

HL 

AC 
C,ODB43H 
DE 

30h 

C, ODB29H 
3AH 

NC, ODB29H 
30H 

C,A 
(DE), A 
ODBASH 
30H 

C, ODB29H 
3AH 

NC, ODB29H 
À 

C 

NZ 

À, ODAH 
10H 


:saut si trouvé aucun ‘: 

210! 

caractère < ‘0’, donc pas chiffre 
«tit 

caractère >= ’:', pas chiffre 

:est un chiffre,-30h donne nb binaire 
zentrer chiffre dans EFN 

sun caract. de IFN, convert,.majusc. 
30" 

scaractère < ‘O0’, alors pas chiffre 


slot 
5 


caractère >= ’:’, pas chiffre 
caractère est un chiffre 

:premier chiffre est un 1? 

snon, erreur en IFN, faux No USER 
tester si second chiffre de 0 à 6 
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DB24 DO RET NC :Second chiffre >6, faux No USER 
DB25 12 LD (DE),A :entrer chiffre dans EFN 
DB26 CDASDB CALL ODBASH ;un caractère de IFN, convert.ma]us, 


te Si pas chiffre, tester (logiquement) si No lecteur valable 
DB29 1B DEC DE 


DB2A FE51 CP 51H :'Q" 

DB2C 300A JR NC,ODB38H  ;Caract, est ‘’Q’,'R’... erreur ds IFN 

DB2E FE41 CP 41H 3'A 

DB30 3806 JR C, ODB38H :Caractère < ‘A’, erreur dans IFN 

DB32 D641 SUB 41H sôter ‘A’, donne 0 à 15 

DB34 12 LD (DE),A :ce sont les lecteurs possibles 
(logiquement) 

DB35 CDASDB CALL ODBASH ;un caractère de IFN, convert.majusc. 


RAREREREEEEAEEE GS] USER et/ou Drive, alors ‘:’ doit suivre, sinon erreur 


DB38 CDS9BDB CALL ODB9BH :retirer caractère, ignorer espace 
DB3B FEE3A XOR 3AH maintenant doit venir un ‘:' 

DB3D CO RET NZ :Si non, alors erreur dans IFN 
DB3E CD9/7DB CALL ODB97H retirer caractère, ignorer espace 
DB41 3F CCF 

DB42 D8 RET C erreur, pas de caractère après ’:' 


ROOREHEEEEXE détermine nom fichier effectif et extension d'après IFN 
DB43 13 INC DE 


DBu4 13 INC DE 

DB4S FE2E CP 2EH NS 

DB47 C8 RET l :nom de fichier manque, entré qu'ext, 
DB48 0E08 LD C,08H : longueur nom de fichier étendu (EFN) 
DB4A CDS8DB CALL ODB58H 

DB4D D8 RET C 

DBUE EE2E XOR 2EH maintenant doit venir un ‘.' 

DB50 CO RET NZ serreur, IFN trop 1ong 

DB51 CD97DB CALL ODB97H retirer caractère, ignorer espace 
DB54 OEO3 LD C, 03H :longueur de l'extension 

DB56 302D JR NC,ODB85H  ;plus de caract.,alors ext.=3 espaces 


RAOREEEREEEEE toste caractère pour nom fichier et ext., entre dans EFN 


DB58 FE20 CP 20H pr © 
DB5A 3829 JR C,ODB85H :Si pas d’espace,remplir avec espaces 
DBSC ES PUSH HL 


DB5D C5 PUSH BC 
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DBSE 
DB5F 
DB62 
DB63 
DB64 
DB65 
DB67 
DB68 
DB6A 
DB6B 
DB6C 
DB6D 
DB6E 
DB70 
DB71 
DB72 
DB74 
DB77 
DB79 
DB7C 


DB/E 
DB80 


LÉLSÉS SSL SL SSL LE) 


DB82 


LÉSÉSS Lis LS LL LS, 


DB85 
DB86 
DB88 
DB8B 
DB8C 
DB8D 


LES ÉSLÉLE SSL SE) 


DB8E 


LES LEE SL SSL S EL) 


DB90 
DB91 
DB92 


47 
21B2DB 
JE 

23 

B7 
2804 
B8 
20F8 
37 

78 

C1 

E1 
3815 
OD 

F8 
FE2A 
CC8EDB 
12 
CDASDB 
3007 


FE20 
20D6 


CD9BDB 


F5 
3E20 
CDS0ODB 
F1 

3F 

C9 


3E3F 


OC 
OD 
C8 


LD B, A Sauvegarde provisoire 

LD HL,0DBB2H  ;table des caractères ‘interdits’ 

LD A, CHL) sretirer valeur de table 

INC HL augmenter pointeur 

OR C\ 

JR Z, ODB6BH stable terminée? 

CP B :comparer valeur table avec caract. 

JR NZ,ODB62H ;si différent, comparer suivante 

SCF marque caractère ‘interdit’ 

LD A,B caractère dans accu 

POP BC 

POP HE 

JR C,ODB85H ;caract.'’interdit',reste avec espaces 

DEC C compteur longueur nom ou extension 

RET M tous caractères parcourus? alors => 

CP 2AH 3'**, joker pour le reste 

CALL Z, ODB8EH 3:Si Joker alors remplir reste de ‘?’ 

LD (DE), A ;:caractère ok. Entrer dns nom fichier 

CALL ODBASH scaract.de nom fichier,convert.majus. 

JR NC, ODB85H ;plus de caractère, remplir reste 
avec espaces 

CP 20H caractère espace? 

JR NZ,ODB58H  ;si non, alors tester et entrer 


jeter rester dans IFN après espace 
CALL ODB9BH teste si espace, si oui, car.suivant 


remplit mémoire (de) à (de+c) avec caractère espace 
PUSH AF 


LD À, 20H :valeur pour caractère espace 
CALL ODB90H 

POP AF 

CCF 

RET 


remplit mémoire (de) à (de+c) avec ‘?' 
LD À, 3FH :?", joker pour un caractère 


remplit mémoire (de) à (de+c) avec caactère dans accu 
INC C ;:correction nécessaire 

DEC C case mémoire suivante 

RET Z zou éventuellement c=0, alors fin 
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DB93 12 LD (DE), A caractère dans mémoire adressée 
DB94 13 INC DE augmenter pointeur 
DB95 18FA JR ODB91H set encore une fois 


RRRRRRHEREMEEES rotire un caractère, teste si longueur nom de fichier > 0 
DB97 CDASDB CALL ODBASH ;un caractère, teste longueur nom 
DB9SA DO RET NC :longueur 0, erreur! 


*** teste si accu est espace, si espace, alors retirer prochain caractère 


DB9B FE20 CP 20H ;espace? 

DB9D 37 SCF 

DBSE CO RET NZ sc'était quelque chose d'autre 
DB9F  CDASDB CALL ODBASH sretirer prochain caractère 
DBA2 38F7 JR C, ODB9BH teste si espace, si oui, 

DBA4 C9 RET :prochain caractère 


*###%%## retire Un caractère du nom de fichier et convertit en majuscules 


DBAS 78 LD A,B : longueur nom fichier (restante) 
DBA6 B7 OR A :longueur <> 07? 

DBA7 C8 RET Z :Si O0, alors Return 

DBA8 23 INC HL 3:(h1) => pointeur sur nom de fichier 
DBA9 O5 DEC B d'entrée 

DBAA E7 RST 20H 3RAM LAM, LD A,CHL) de Ram 
DBAB E67F AND 7FH ;que caractère ASCII, S.V.P 
DBAD CDAG6CA CALL OCAAGH convertir en majuscules 
DBBO 37 SCF marque octet retiré 

DBB1 C9 RET 

RAREEEEEEXEEX caractères interdits dans nom de fichier 

DBB2 3C DEFB 3CH ju? 

DBB3 3€ DEFB 3EH 3 1>" 

DBB4 2E DEFB 2EH PANE 

DBB5 2C DEFB 2CH Sa 

DBB6 3B DEFB 3BH RATE 

DBB7 3A DEFB 3AH En 

DBB8 3D DEFB 3DH s'=! 

DBB8 5B DEFB 5BH crochet ouvert 

DBB8 SD DEFB SDH :crochet fermé 

DBB8 SF DEFB SFH :soulignage 

DBB8 25 DEFB 25H 3%! 


DBB8 7C DEFB 7CH :Shift arobas 
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DBBE 28 DEFB 28H 3" 


DBBE 29 DEFB 2H HR 

DBBE 2F DEFB 2FH FA nl 

DBBE 5C DEFB 5SCH :Backslash 

DBBE 7F DEFB 7FH :Delete 

DBBE O0 DEFB OOH marque fin de la table 


ROORREREEEE GOT trois espaces, No lecteur actuel dans c 
DBC4 3E01 LD A, OH imessage système 1 
DBC6 1802 JR ODBCAH 


RPOOORREREEEE GOT nom de fichier’, No lecteur actuel dans c 


DBC8 3EOB LD À, OBH smessage système 11 
DBCA C5 PUSH BC 

DBCB FD4EO2 LD C, (IY+02H) ;:No lecteur dans c 
DBCE 1804 JR ODBDAH 


RONOREREEEXX Or Drive #: user #’, e=lecteur, c= No user 
DBDO C5 PUSH BC 


DBD1 OA LD À, (BC) numéro lecteur 

DBD2 SF LD E,A :dans e 

DBD3 1600 LD D, 00H 

DBDS OB DEC BC 

DBD6 OA LD A, (BC) :No user 

DBD7 4F LD C,A :dans c 

DBD8 3E0C LD À, OCH message système 12 
DBDA CDEBCA CALL OCAEBH sortir message système 
DBDD C1 POP BC 

DBDE C9 RET 


0000OREEREX Lransfère 32 octets avec LDIR de hl dans de 


DBDF E5 PUSH HL 

DBEO D5 PUSH DE 

DBET C5 PUSH BC 

DBE2 012000 LD BC, 0020H 
DBES EDBO LDIR 

DBE7 C1 POP BC 

DBE8 Di POP DE 

DBE9 E1 POP AL 

DBEA C9 RET 


- 11 118 - 


EEE jvise hl par (accu”2) 


DBEB CB3C SRL H 

DBED CB1D RR L 

DBEF 3D DEC À 

DBFO 20F9 JR NZ, ODBEBH 
DBF2 C9 RET 


LELLRELLLELL LE LE) compare h1 avec de 


DBF3 E5 PUSH HL 
DBF4 B7 OR À 
DBF5 ED52 SBC HL, DE 
DBF7 E1 POP HL 
DBF8 C9 RET 


eeeeeeetetttt charge (h1) dans hi] 


DBF9 D5 PUSH DE 
DBFA 5E LD E, CHL) 
DBFB 23 INC HL 
DBFC 56 LD D, (HL) 
DBFD EB EX DE,HL 
DBFE D1 POP DE 
DBFF C9 RET 


EEE (COO à dfff ne sont pas utilisés 
DCOO à  DFFF RST 38H 
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CHAPITRE 5: PROGRAMMES ET ASTUCES POUR LE DDI 


5.1 ERREUR AVEC MERGE ET CHAIN MERGE 


Ce chapitre intéressera tous ceux qui ont été parmi les premiers à 
acheter un lecteur de disquette. Une erreur s'est malheureusement glissée 
dans le système d'exploitation de sorte que lorsqu'on charge un programme 
supplémentaire avec les instructions MERGE et CHAIN MERGE l'erreur ‘EOF 
met’ survient de façon injustifiée, 

Comme le fabricant a connaissance de cette erreur, celle-ci sera éliminée 
dans les versions ultérieures du système d'exploitation. Ceux d'entre 
vous qui ne savent pas encore si leur lecteur de disquette comporte ou 
non cette erreur pourront le savoir en étudiant le présent chapitre. 


Comme nous l'avons déjà indiqué et comme vous l'avez peut-être déjà 
expérimenté par vous-même, le système d'exploitation AMSDOS comporte une 
erreur, Ne soyez pas trop irrité par ce fait car même les installations 
les plus coûteuses comportent encore d'innombrables erreurs dans leur 
système d'exploitation. 


Il n’y a pas non plus là de raison de paniquer: votre problème est déjà 
résolu puisque vous avez le présent ouvrage entre les mains. Nous ne vous 
fournissons pas UNE possibilité de solution, mais DEUX. Mais quand et 
pourquoi cette erreur se produit-elle? Peut-être n'avez vous eu jusqu'ici 
aucun problème lors de l'utilisation des instructions MERGE et CHAIN 
MERGE, C'est tout à fait possible, Notamment pour les petites routines, 
il est même assez improbable qu'une erreur se produise. 

Essayez donc notre exemple: 


NEW 


10 PRINT x: "C'est réussi." 
20 GOTO 20 


SAVE Deux” 


NEW 
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10 PRINT “Nous essayons ,,," 
20 x=1 
30 CHAIN MERGE “Deux” 


RUN 


Vous pouvez maintenant vous faire LISTer le programme. Tout s'est passé 
comme voulu et attendu, (Voyez également le chapitre correspondant du 
manuel du Basic CPC). 

Entrez maintenant: 


NEW 


26 PRINT x:"C'est réussi," 
27 END 


SAVE “Deux” 


NEW 


10 PRINT “Nous essayons ..,” 
20 x=1 
25 CHAIN MERGE “Deux” 


RUN 


Faites toutefois très attention à bien respecter les numéros de ligne que 
nous vous indiquons car ils sont importants pour notre exemple. 


Après avoir lancé le programme, vous obtiendrez un 
EOF met in 25 


Vous savez que EOF signifie End of File et vous vous demandez 
certainement pourquoi l'ordinateur a rencontré une fin de fichier? C'est 
exactement en cela qu'est l'erreur du système d'exploitation. Nous avons 
provoqué cette erreur dans notre exemple en utilisant le numéro de ligne 
26, Dès que, lors du chargement d'un second programme, un &la = 26 est 
rencontré, le message d'erreur 'EOF met’ est sorti. Le code 26 ne peut 
pas se présenter comme caractère ASCII dans un programme, mais il peut 


# EE A121= 


par contre être utilisé dans le codage des programmes, 


Lors de la sauvegarde d’un programme sur disquette est écrite également 
sur disquette pour chaque ligne du programme la longueur ainsi que 
l'adresse de début en mémoire de cette ligne. Cela représente trois 
caractères pour chaque ligne et le risque est grand qu'un de ces trois 
octets vaille &la, D'autre part le numéro de ligne est sauvé sous la 
forme d’un nombre entier sur 16 bits. Ce nombre peut également comporter 
un &la, comme dans notre exemple. La probabilité est donc de 
1:(256/5)=51,2 par ligne, ce qui signifie que statistiquement, un ‘EOF 
met’ doit survenir au plus tard lorsque le programme dépasse 51 lignes. 
Dans la pratique cependant, un nombre de lignes très inférieur suffit 
souvent, 


Une première solution possible consiste à sauvegarder les programmes à 
charger en second sous la forme de ce qu'on appelle les fichiers ASCII. 
Les programmes ne sont plus alors codés mais sont écrits sur la disquette 
comme à l'écran, caractère par caractère. Les fichiers de programmes 
deviennent ainsi un peu plus longs, un programme d'une taille de 30 
Koctets occupera par exemple 32 Koctets sur la disquette. Dans notre 
exemple, vous auriez donc dû entrer: 


SAVE “Deux”, a 


Le ‘,a’ est mis pour fichier ASCII. Cette première solution est aussi la 
plus simple, Si vous avez toutefois des programmes protégés que vous 
voulez charger en second (par exemple), cette solution n'est pas 
utilisable, 


Nous avons donc un petit programme à vous offrir comme deuxième solution. 
Ce programme exécute l'instruction CHAIN MERGE comme elle devrait 
normalement être exécutée, c'est-à-dire comme elle est décrite dans le 
manuel d'utilisation et comme elle fonctionne en Basic cassette, 


4 


Firmware Patch for CHAIN-MERGE 
" Amstrad CPC & DDI-1 


D UT EE NN ND — 
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10 MEMORY HIMEM-41 

20 DEF FNmsb(a)=&FF AND INT(a/256) 
30 DEF FNIsb(a)=8FF AND UNT(a) 

4O FOR i=HIMEM+1 TO HIMEM+38 

50 READ byte 

60 POKE i,byte 

70 NEXT ! 

80 POKE HIMEM+3, FNISD(HIMEM+39) 
90 POKE HIMEM+4, FNmsb(HIMEM+39) 
100 POKE HIMEM+9, FNISDCHIMEM+41 ) 
110 POKE HIMEM+10,FNmsbCHIMEM+41) 
120 POKE HIMEM+18,FN1SD(HIMEM+1) 
130 POKE HIMEM+19, FNmsbCHIMEM+1 ) 
140 ‘CAS IN CHAR 

150 POKE HIMEM+39, PEEK(&BC80+0) 
160 POKE HIMEM+40, PEEK(8&BC80+1) 
170 POKE HIMEM+41, PEEK(&BC80+2) 
180 POKE gBC80+0, a&c3 

190 POKE &BC80+1, FNISD(HIMEM+1) 
200 POKE 8BC80+2, FNmsb(HIMEM+1) 
210 DATA 8e5,82A, 800, 800, 822, 880, &bc 
220 DATA 83a,8&00,800, 832,882, 8bc 
230 DATA &cd,g80, &bc, 821,800, 800 
240 DATA 822,881,8bc,8&21,880, &bc 
250 DATA 836,8c3,8el,8d8,8c8,&fe,&la 
260 DATA 837,83f,8c0,&b7,837,8c9 


Une fois cette routine entrée, sauvez-la sur disquette. Lorsque vous 
aurez ensuite un programme qui utilise l'instruction CHAIN MERGE, vous 
pourrez placer cette routine au début du programme. Une fois la routine 
exécutée, vous pouvez à nouveau effacer les lignes correspondant à cette 
routine avec DELETE (cela est également possible dans un programme), 
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5.2 MESSAGES D'ERREUR 


Il y a en certainement parmi vous que le simple terme de ‘message 
d'erreur’ suffit à plonger dans une colère noire parce qu'ils ne peuvent 
manquer de se rappeler telle ou telle vaine tentative pour créer un 
programme qui soit à l'abri des messages d'erreur du lecteur de 
disquette. 


Les messages d'erreur sont cependant une chose tout à fait naturelle 
lorsqu'on travaille avec des ordinateurs. Tout le monde fait des erreurs 
que l'ordinateur affiche alors à l'écran. Si l’on veut par exemple 
charger un fichier qui n'existe pas sur la disquette, on obtient la 
remarque lapidaire suivante: 


Filename.Ext not found 


Vous savez alors que vous avez mal indiqué le nom du fichier ou que vous 
n'avez pas placé dans le lecteur la bonne disquette. Le lecteur de 
disquette se donne dans un tel cas beaucoup de mal pour essayer de vous 
servir, avant de sortir le message d'erreur. Si aucune extension (type de 
fichier) n'est indiquée, le lecteur de disquette DDI-1 effectuera TROIS 
tentatives pour essayer de trouver le fichier voulu, 


1) sous le nom de Filename. 
2) sous le nom de Filename.BAS 
3) sous le nom de Filename.BIN 


Ce n'est que si toutes ces tentatives échouent que le lecteur de 
disquette vous enverra le message d'erreur indiqué plus haut. Si 
toutefois vous indiquez l'extension avec le nom de fichier, une seule 
tentative sera effectuée. (Par exemple LOAD"Jeuxdeba.lle” ou 
OPENIN"Donnees.dat” etc.) 


Nous vous expliquons par ailleurs au chapitre 1.5 comment éviter 
certaines erreurs, Ces astuces de programmation ne peuvent cependant pas 
toujours être mises en oeuvre avec succès. 


Il y a malheureusement des instructions telles que Disc missing ou 


d'autres semblables que l'on ne peut absolument pas intercepter par 
programme. 
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Cette erreur ne signifie pas nécessairement que le lecteur de disquette 
soit vide, il se peut également que la disquette n'ait pas été 
complètement enfoncée, Vous obtenez alors le message d'erreur: 


Drive A: disc missing 
Retry, Ignore or Cancel? 


Un autre exemple: si votre disquette n'est plus en très bon état et qu'un 
Read Fail apparaît comme message d'erreur. On pourrait encore allonger 
cette liste de possibilités, Tout cela ne serait d'ailleurs pas si 
dramatique et ces messages d'erreur pourraient même n'être considérés que 
comme un grand avantage de ce lecteur de disquette, s'il n'y avait pas un 
inconvénient décisif! Si en effet le lecteur de disquette détecte une 
erreur lors du déroulement d'un programme, quelle que soit l'erreur, le 
texte de cette erreur vous est affiché sur l'écran et le déroulement du 
programme est immédiatement interrompu, Ce n’est pas grave, direz-vous, 


cela m'arrive bien aussi lorsqu'il y a une erreur dans mon programme, Il 
est vrai, cependant: 


Il est possible d'éliminer presque totalement les erreurs d'un programme. 
On peut par exemple éliminer toutes les erreurs de syntaxe, tester la 
validité des entrées faites par l'utilisateur et intercepter les 
mauvaises entrées, Il est ainsi possible d'intercepter pratiquement 
toutes les erreurs imaginables lors du déroulement d’un programme. 

Il est en outre possible d'utiliser l'instruction Basic ON ERROR GOTO 
afin qu'un message d'erreur survenant pendant le déroulement du programme 
n'ait pas pour effet de l'interrompre mais seulement de SUSPENDRE son 
exécution. 

Lorsqu'une erreur se produit, le déroulement normal du programme est 
alors suspendu, l'endroit où l'erreur s'est produite est mémorisé et 
l'ordinateur saute à une sous-routine qui pourra alors éventuellement 
réagir à cette erreur. En programmant de la sorte, on peut intercepter à 
100% tout risque d'interruption du programme, 


Mais que pourriez-vous faire pour que le programme puisse s'assurer 
qu'une disquette figure bien dans le lecteur? Vous pouvez indiquer à 
l'utilisateur du programme de placer une disquette dans le lecteur mais 
cela n'exclut pas un tas d'autres messages d'erreur possibles, Bien, 
direz-vous, je peux donc utiliser l'instruction ON ERROR GOTO qui est 
vraiment pratique. 
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Malheureusement ON ERROR GOTO n'a aucun effet pour les messages d'erreur 
du lecteur de disquette, Les messages d'erreur sont sortis malgré tout et 
le programme est interrompu, 


(A ceux d'entre vous qui ne connaissent pas encore suffisamment cette 
instruction, nous recommandons d'en étudier la description dans le manuel 
d'utilisation.) 


Il convient de noter cependant ici que le CPC 664 vous offre la 
possibilité d'’intercepter les messages d'erreur du disque avec 
l'instruction ON ERROR GOTO. La variable d'erreur système ERR a alors la 
valeur 32 et la variable DERR contient en outre le numéro d'erreur 
transmis par le DOS, Le programme n'est donc pas interrompu mais le texte 
d'erreur apparaît sur l'écran, Un autre inconvénient est qu'on ne peut 
demander ciairement de QUELLE erreur il s’agit car ERR contient toujours 
32 et la variable DERR ne donne pas beaucoup de renseignements à ce 
sujet. 


Les bons conseils sont donc très appréciables dans ce domaine. Même le 
plus opiniâtre des programmeurs peut en effet être un jour contraint à 
l'abandon. Imaginez comme il est désespérant en effet d'entrer 200 
enregistrements et au moment de les sauvegarder de recevoir de la 
disquette le message 


Disc full 


Le programme est alors interrompu et vous pouvez entrer à nouveau vos 200 
enregistrements! Un tel programme ne correspond bien sûr pas vraiment à 
l'image qu'on se fait d'un logiciel professionnel. Protéger les 
programmes contre un erreur d'utilisation est en effet le premier souci 
des programmeurs professionnels, Mais le lecteur de disquette est 
Justement très sujet à erreur, 


Vous trouverez donc dans ce chapitre une routine en langage machine qui 
résout définitivement ce problème. Les erreurs ne sont plus sorties sur 
l'écran et les programmes ne sont plus interrompus, On aurait pu faire en 
sorte que le programmeur ne remarque même pas qu'une erreur a été 
annoncée par le lecteur de disquette. Mais cela n'est vraiment pas 
souhaitable non plus car il vaut mieux prendre connaissance de l'erreur, 
l'important étant simplement que le programme ne soit pas alors 
interrompu. Avec cette routine le problème a été résolu de façon à ce 
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qu'une erreur du lecteur de disquette entraîne la sortie du message 
d'erreur 


Unknown user function 


Ce message d'erreur survient en fait très rarement et c’est pourquoi il a 
été choisi de façon à ce que les erreurs disque puissent étre distinguées 
dans un programme des autres erreurs, Tous les messages d'erreur ont des 
codes d'erreur qu'on peut interroger avec la variable système ERR. On 
peut également interroger la ligne dans laquelle est survenue la dernière 
erreur. On utilise à cet effet la variable système ERL. 


Quand donc un message d'erreur est envoyé par le lecteur de disquette, 
celui-ci est intercepté et stocké provisoirement dans un buffer spécial. 
Le programme n'est pas interrompu et une erreur UNKNOWN USER FUNCTION 
avec le code d'erreur 18 est générée, Cette erreur peut alors fort bien 
etre interceptée avec l'instruction ON ERROR GOTO. Il faut ensuite 
examiner dans la routine d'erreur correspondante quelle erreur a été 
annoncée. Si la variable de code d'erreur ERR vaut 18, c'est qu’on est en 
présence d’une erreur disque. On peut alors se faire transmettre le texte 
par la routine, dans une variable alphanumérique, pour déterminer de 
quelle erreur précise il s'agit. On peut alors réagir dans le programme à 
l'erreur annoncée. Il est possible d'activer ou de désactiver cette 
routine de protection à tout moment. 


Un programme d'exemple 


10 ON ERROR GOTO 1000 

20 CALL active : ‘Routine d'erreur activée 
30 OPENIN “nombres” 

4O WHILE NOT EOF 

50 INPUT #9,a 

60 PRINT a, 

70 WEND 

80 CLOSEIN 

90 CALL desactive : END 

1000 IF ERR<>18 THEN RESUME NEXT 
1010 ds$="+" : CALL msg@ds$ 
1020 PRINT “Disk:"”:ds$ 

1030 RESUME 90 
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Vous voyez que les routines d'erreur sont appelées avec l'‘instruction 
CALL, Il y a là trois différentes adresses d'entrée: 


CALL active 


CALL msg,@a$ 


CALL desactive 


Avec Call active, vous activez la routine d’interception 
des erreurs, Un grand nombre de vecteurs du système 
d'exploitation sont alors DETOURNES, Ce problème ne peut 
pas être résolu autrement. Immédiatement après, les 
messages d'erreur ne sont plus sortis sur l'écran mais 
interceptés et entrestockés. Après un message d'erreur 
annoncé par le lecteur de disquette, une erreur Unknown 
user function est générée. Cette erreur peut être 
interceptée avec ON ERROR GOTO, 


Le dernier message d'erreur annoncé est transmis à travers 
la variable alphanumérique @a$ (toute autre variable 
alphanumér ique est bien sûr également possible), Faites 
attention à ce que, avant d'être appelée avec a$, la 
variable alphanumérique a$ ait bien été INITIALISEE, Un 
a$="" est suffisant. Sinon vous obtiendrez un Improper 
argument. 


La routine d'interception des erreurs est à nouveau 
désactivée. L'état normal est à nouveau rétabli. 
Immédiatement après les messages d'erreur apparaissent à 
nouveau sur l'écran. Il est recommandé de placer la 
désactivation des routines d'erreur à la fin de tout 
programme car vous risqueriez sinon de vous demander 
pourquoi un FILE NOT FOUND ne vous est plus communiqué 
comme d'habitude. 


On suppose bien entendu que la routine d'erreur soit en mémoire! 


Explication du 


programme d'erreur: 


LIGNE EXPLICATION 


10 On décide qu'après un message d'erreur le programme doit se 
poursuivre en ligne 1000. 


20 La routine d'erreur est activée, Immédiatement après les 
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30 


40-80 


90 


1000 


1010 


1020 


1030 


messages d'erreur du lecteur de disquette ne sont plus affichés 
à l'écran mais interceptés et stockés dans des buffers, 


Le fichier séquentiel “nombres” est ouvert. Si ce fichier 
n'existe pas, un “File not found” sera généré, 


Si le fichier a pu être trouvé, les nombres sont lus et sortis, 


La routine d'interception des erreurs est à nouveau désactivée 
et le programme est terminé, 


On teste ici s’il s'agit d'une erreur disquette. Si ce n'est 
pas le cas, l'exécution du programme se poursuit immédiatement 
après l'erreur, 


La variable ds$ est initialisée. Cela est nécessaire pour ne 
pas obtenir un “Improper argument” avec @ds$. Le texte d'erreur 
fourni est alors tranmis à la variable ds$. 


Le texte transmis est sorti sur l'écran, Cela ne représente 
qu'une des possibilités d'utilisation parmi des milliers. 


Le programme se poursuit en ligne 90. 


Voilà donc un exemple d'application. Vous pouvez également voir d'après 
le programme de gestion de fichier que nous vous donnons dans ce chapitre 
comment on peut travailler avec la routine d'erreur de façon très 
intéressante. 


I1 s’est avéré très pratique et très intéressant de fixer et d'interroger 
dans le programme ce qu'on appelle des flags, On peut alors reconnaître à 
l'intérieur du programme si une erreur s'est produite où non et réagir 
comme il convient. 


Cela pourrait se présenter comme dans l'exemple suivant: 


10 ON ERROR GOTO 1000 

20 CALL active : ’Routine d'erreur activée 

30 errflg=0 : OPENIN “nombres” : IF errfig THEN 100 
40 WHILE NOT EOF 


50 
60 


INPUT #9,a 
PRINT a, 
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70 WEND 

80 CLOSEIN 

90 CALL desactive : END 

100 IF RIGHT$(ds$,9)="not found” THEN REM Réagir au message 
110 PRINT "Disk -- “;ds$ 

120 END 

1000 IF ERR<>18 THEN RESUME NEXT 

1010 ds$="+" : CALL msg,@ds$ 

1020 errfig=1 

1030 RESUME NEXT 


Vous voyez dans cet exemple qu'après l'instruction OPENIN on teste s'il y 
a une erreur, S'il n'y a pas d'erreur, l'exécution normale du programme 
se poursuit, 


Si toutefois il y a une erreur, on teste alors s’il s’agit d’une erreur 
“File not found”. Si c’est un “File not found”, on peut y réagir de 
manière appropriée (par exemple en changeant le nom de fichier). Sinon le 
message d'erreur sera sorti, On pourrait bien sûr faire ici encore 
d'autres distinctions. On pourrait ainsi par exemple lors d'un Drive A: 
disc missing demander à l'utilisateur par un message en clair de placer 
une disqueïte dans le lecteur, 


Ce mode de traitement des erreurs permet par exemple de déterminer par un 
essai d'ouverture d'un fichier si le fichier existe déjà ou non et donc 
de le créer si nécessaire. 


Vous voyez que les possibilités sont très diverses et leur mise en oeuvre 
extrêmement simple. 


Vous pouvez placer la routine d'interception des erreurs dans n'importe 
quelle zone de la mémoire. Pour ceux d’entre vous qui programment en 
langage machine, nous vous fournissons un listing assembleur. Pour tous 
les autres nous vous présentons un chargeur Basic pour placer la routine 
machine dans n'importe quelle zone de la mémoire. La routine a 229 octets 
de long (ce qui est très peu), C'est certainement une infime dépense de 
place mémoire par rapport à l'usage qu’on peut en faire. Vous pouvez 
entrer en ligne 70 du chargeur Basic l'adresse de départ que doit avoir 
le programme. Si vous avez un programme dans lequel aucune instruction 
Symbol after n'est utilisée, vous pouvez placer la routine tout en haut 
de la mémoire, pour perdre le moins de place possible pour votre 
programme Basic. 
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En Basic cassette, vous disposez de 43533 octets pour vos programmes et 
vos données, La limite supérieure de la mémoire est en &AB7F,. Lorsque 
vous connectez le lecteur de disquette, un peu de mémoire est perdue pour 
les buffers d'entrée et de sortie ainsi que pour le DOS. Après la mise 
sous tension, HIMEM est en 8A67B et vous n'avez plus que 42249 octets de 
libres. Le DOS nécessite toutefois encore 4096 octets pour les buffers 
d'entrée et sortie que nous venons d'indiquer. Ces buffers peuvent 
cependant être librement déplacés (contrairement à la mémoire système). 
Nous mettons en place cette mémoire avec: 


OPENOUT ”’dummy" 

MEMORY HIMEM-1 

CLOSEOUT 

Nous obtenons maintenant pour HIMEM la valeur de 89674. Il reste 38152 
octets libres, La limite supérieure pour Basic se trouve donc dans le 
meilleur des cas en &9,67A, Notre routine a 229 octets de long et 
nécessite en outre encore 40 octets comme buffer pour le texte du message 
d'erreur, Nous calculons donc 28967A-229-40=-956D et nous faisons 
maintenant commencer notre routine en 8956). Entrez cette valeur dans la 
ligne 70 du chargeur. 

Si vous utilisez toutefois l'instruction Symbol after, vous devrez placer 
la routine un peu plus bas dans la mémoire. À cet effet, éteignez votre 
ordinateur et rallumez-le, Entrez alors: 


Symbol After n 


Remplacez ici n par la plus grande valeur survenant dans le programme, 
Entrez ensuite: 


OPENOUT ”’dummy" 
MEMORY HIMEM-1 
CLOSEOUT 


PRINT HEX$(HIMEM-229-40) 


Vous obtiendrez par exemple avec Symbol after 190 un résultat de 893D), 
Vous n'avez plus alors qu'à définir 8&93D0 comme adresse de départ, C'est 
tout. 


Créez de cette manière, à titre d'exercice, une routine située en 89650, 


Vous pourrez utiliser cette routine dans la plupart des programmes, tant 
que vous n'utilisez pas d'instructions Symbol after et tant que d’autres 
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routines machine ne sont pas intégrées dans le programme. Sauvegardez 
alors ce fichier sur disquette car il est plus facile de charger la 
routine d'interception des erreurs à partir de la disquette plutôt que 
d'intégrer chaque fois toutes les lignes DATA dans le programme. Si vous 
voulez maintenant intégrer la routine d'interception des erreurs dans un 
programme, conformez-vous à la marche à suivre ci-dessous: 


1) Créez le fichier de programme binaire avec le programme de chargeur 
Basic et sauvegardez ce programme sur disquette (bien sûr sur la 
même disquette sur laquelle est sauvegardé le programme qui 
nécessite et charge cette routine). 


2) Intégrez la routine dans le programme. Il convient ici aussi de 
procéder dans l'ordre car il peut sinon arriver que 4096 octets 
soient inutilement perdus, Cela arrive en effet lorsque la routine 
est d'abord chargée, que la limite supérieure de la mémoire est 
alors abaissée et que le buffer n'est défini qu'ensuite, 


Un programme chargeant la routine d'interception des erreurs devrait se 
présenter à peu près comme ceci: 


10 ON ERROR GOTO 20000 ‘’Routine d'erreur 
20 LOAD “ERROR.BIN" 

30 MEMORY 89650-1 

40 OPENOUT “dummy" 

50 MEMORY HIMEM-1 

60 CLOSEOUT 

70 

80 , 

90 . 


Vous reconnaissez l'ordre à suivre, La routine doit d'abord être générée 
et sauvée sur disquette sous le nom “Error.bin"; n'importe quel autre nom 
est également possible puisque vous fixez vous-même le nom de fichier 
dans le chargeur, 


Notre programme charge d'abord ce fichier, la limite de la mémoire est 
ensuite fixée directement en dessous de notre routine ainsi chargée, de 
façon à ce que notre routine ne puisse être effacée ni par des variable 
ni par les buffers du DOS, Ce n'est qu'ensuite que sont créés les buffers 
du DOS et que la limite de la mémoire est à nouveau abaissée, La routine 
ne peut plus maintenant être effacée. Le mieux est de toujours éteindre 
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puis rallumer l'ordinateur avant d'utiliser de tels programmes car i] 
peut y avoir certaines complications si vous aviez auparavant un 
programme qui avait déjà mis en place le buffer du DOS ou si la limite 
supérieure avait déjà été abaissée d’une manière ou d'une autre, Après 
tout cela, le mieux est que vous définissiez encore QUATRE variables dont 
vous aurez en permanence besoin dans le programme. 


ACTIVE=89650+0 
MSG=89650+3 
DESACTIVE=89560+6 
DS$="" 


Avec une autre adresse de départ de la routine, vous devez bien sûr 
modifier ces valeurs, Il s'agit ici des adresses d'entrée des différentes 
routines. Nous vous souhaitons beaucoup de succès dans l'utilisation de 
ces routines. Mais avant que vous ne vous précipitiez pour taper ce 
chargeur Basic: dans ce chapitre figure un autre paquet de routines pour 
rendre possible la sauvegarde relative de fichiers, Ces routines ont été 
réalisées à l'aide des instructions RSX plus puissantes, La routine 
d'interception des erreurs est intégrée dans ce paquet de routines. Si 
vous voulez donc utiliser la sauvegarde relative de fichier, il vaut donc 
mieux que vous tapiez le chargeur Basic de la sauvegarde relative de 
fichier pour éviter beaucoup de travail inutile. 


Les possesseurs d'un CPC 664 qui jugent la routine d'interception des 
erreurs inutile parce qu'elle est soutenue par leur Basic ne doivent pas 
perdre de vue trois faits importants: 


1) Les messages d'erreur apparaissent obligatoirement sur l'écran; cela 
est difficilement admissible pour des programmes professionnels. 


2) Vous n'avez pas de compatibilité avec les ordinateurs CPC 464, 


3) L'interrogation de la variable ERR vous indique s'il y a une erreur 
disque mais vous n'obtenez jamais le message d'erreur précis et vous ne 
pouvez pas l'obtenir non plus en utilisant la variable DERR! Il ne vous 
est donc pas possible de distinguer un DISC FULL du message d'erreur DISC 
IS MISSING. 
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5,2,1 Explications sur la routine d’interception des erreurs 


Pour intercepter les messages d'erreur certaines connaissances sur 
l'intérieur du CPC sont nécessaires car on ne doit pas sous-estimer 
l'intervention dans le système d'exploitation qu'il est nécessaire 
d'entreprendre. Nous nous servons pour cela de la possibilité qu'offre le 
CPC de DETOURNER certains vecteurs. Nous devons utiliser abondamment 
cette possibilité. 


Lorsque le lecteur de disquette sort un message d'erreur sur l'écran, la 
routine du système d'exploitation TXT OUTPUT, en &BB5A, est appelée. 
Cette routine sert à sortir sur l'écran dans la fenêtre actuelle un 
caractère placé dans l'accumulateur, Cette routine est donc détournée. 

La routine d'interception des erreurs est donc placée et exécutée AVANT 
la routine TXT OUTPUT normale, et ce pour CHAQUE caractère devant être 
affiché à l'écran. Cette routine examine si le caractère à afficher vient 
du lecteur de disquette. A cet effet, on examine l'adresse de retour 
placée sur la pile, La ROM disquette est située dans la zone AU DESSUS de 
8C000. C'est ici également que se trouve le système d'exploitation Basic. 
La routine de transmission des messages d'erreur est située dans la zone 
de &CB00 à &eCBFF. Il nous suffit donc d'interroger l'octet fort de 
l'adresse de retour, Si donc TXT OUTPUT est appelée à partir de cette 
one, il s'agit d'un caractère venant du lecteur de disquette qui est 
intercepté par la routine et stocké provisoirement pour une utilisation 
ultérieure. 

Un flag est mis simultanément pour qu'on puisse ensuite tester si une 
erreur s'est produite. Le flag sert en outre à intercepter le message 
BREAK. Le message BREAK ne vient pas en effet de la ROM disquette mais de 
la ROM Basic normale. Tout cela est réalisé dans la routine OUTCHK (voyez 
le listing assembleur). Dans cette routine, les vecteurs sont détournés 
et ces vecteurs sont à nouveau fixés à leur valeur normale dans la 
routine RESET, 

Lorsque le lecteur de disquette a sorti un message d'erreur, il saute à 
la ROM Basic, à l'endroit où les programmes sont interrompus. Le message 
BREAK est sorti et le programme est interrompu. Nous devons ici détourner 
le vecteur Ready Modus pour empêcher que les programmes puissent être 
interrompus. Cette routine teste si le flag d'erreur est mis car on peut 
fort bien parvenir au mode Ready Modus SANS qu'un message d'erreur ne se 
soit produit. Si le flag d'erreur est mis, le message d'erreur #18 
(Unknown user function) est généré qui pourra ensuite être intercepté. 


Nous avons enfin encore la routine GETTXT qui sert à nous transmettre le 


- 1 134 - 


message d'erreur en Basic. Nous obtenons donc le message d'erreur en 
clair dans une variable alphanumérique quelconque. 


La routine KWC sert à envoyer un € pour répondre à la question éventuelle 
Retry, Ignore or Cancel 


L'erreur est ainsi immédiatement reconnue et le déroulement du programme 
est immédiatement interrompu, 


ATTENTION! IMPORTANT! 


Lorsque vous faites afficher le catalogue d’une disquette, ces caractères 
sont également interprétés comme une erreur car ils proviennent 
exactement de la même zone que les messages d'erreur, Cela vaut aussi 
bien pour l'instruction IDIR que pour l'instruction CAT, Lorsque la 
routine d'erreur est activée, l'instruction IDIR devient inopérante! Si 
vous voulez utiliser cette instruction, vous devez utiliser 


CALL active:IDIR:CALL desactive 


L'instruction CAT a été traitée ici de façon spéciale, Ses vecteurs ont 
également été détournés de sorte que l'instruction CAT peut être utilisée 
comme à la normale. 


Pour tous ceux qui veulent utiliser la routine d'interception des 
erreurs, il est certainement également intéressant de savoir comment 
cette routine a été ici intégrée dans le programme. En fait 8 lignes 
suffisent, à partir de la ligne 3170, pour réaliser un traitement 
pratique des erreurs, L'ouverture d'un fichier se présente donc 
maintenant ainsi: 


ef=0:O0OPENIN"nom de fichier”:IF ef THEN recommencer 


Le flag d'erreur ef est mis à O0 avant l'OPENIN, S'il est mis après 
l'OPENIN, c’est qu'une erreur s'est produite et on essaie à nouveau 
d'exécuter l'instruction OPENIN. Dans la routine d'erreur, l'utilisateur 
a la possibilité soit de revenir au menu principal, soit d'entreprendre 
une nouvelle tentative d'ouverture; cela peut dépendre du message 
d'erreur survenu, Par exemple, avec Disc missing, on peut placer la 
disquette dans le lecteur de disquette et essayer à nouveau (ef vaut 
alors 1), Pour un Read fail, cela est moins évident. Si le message 


- 11 135 - 


d'erreur est un File not found, la variable nf est mise à 1, Aucun texte 
d'erreur n'est sorti. On peut par exemple tester de cette façon si un 
fichier existe déjà. 
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.COPYRIGHT 1985 MICRO-RFPLICATION. 
. CAMS. 


:ROUTIHE D’INTERCEPTION LES ERREURS 
Marnrsssrserisrcrsrrrstrt"t"t0trr 


i6C) 1985 ET DATA BECKER GMEH 


; JS 22/3/1985 
n 
; LPC d6d éd / 6128 
DEC  H#EG0 

JF GET ACTIVE 

JP GETTHT RETIRE CHAINE 

JF FESET :FESTAURE LES VECTEURS 
SET 

CALL 46309 :ROM ENABLE 

:FANGE ETAT ROM 


: FETIFRER CHRACTERE 
:FANGE HUMERO DE VERSION 


FOF  AF 

CHLL #E94C :FESTORE ETAT ROM 
LD  A,SVERS 

CF #71 34647 

JR HZ, CPCéé4 

LE  H,#C03 

LD CH#ACEI TA 3REAC 


A: #03 

LD CH#BESA2. A 
LE  (H#BBHE 2.4 
LU  CH#EBCSE SA 


: OUT CHAR 
:EM MAIT CHAR 
3CHS CATALOG 


LD A.CVER) 3: VERS I OH 

CF #ri 

JF HE , CPCÉEH HS 

LD  HL,REHDYH 

LC FL #ACOE à, HL 3DETOURHER FEAL'r 
CPCÉE LC: HL , © #EBSE à 

LD <VYEKd+1 3, HL 

LC HL ; QUTCHK :DETOURHER OUT CHAF 

LC < #BESB 5, HL 

LC HL 4 #BBQ7 3 :EANGER AHCIEH VECTEUR 

LD CVEKS+1 3, HL 

LD HL,KWC 

LD  <#EB473,HL :CETOURHER HAIT CHAR 

LD HL , € HECSC 3 3 ANCIEN VECTEUR 

LC CYEK3 3, HL 

LC HL , CAT 

LC e #BCAC 5, HL 1CAS CATALOGUE 

LD HL, BUFFER 

LD CHELF3,HL 

RET 
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;ROUTINE TESTE 51 CARACTERE 
OUTCHK EX 


ESP, HL 
FUSH AF 
LD H,H 
CP *#CB 
JF He, NEIH 
LE Hi 
LD  “TESTER2Z.A 
POP AF 


PUSH HL 
LD HL.{HELF?! 
CF 14 
JF 2: HOT 
iCR AUTORISE COMME SYMBÛLE DE 
LD  CHLYA 


INC HL 
LE AL 
CP 49 
JR H£Z,H1 
DEC HL 
Hi LC € HELP 2. HL 
HOT FOR  HL 
FUSH AF 
SUPFRES FOF  AF 
Ex CSP HL 
FRET 
HEIH LD  A,6YERD 
CF #71 
JR £Z,HEIHAL 
LC A0 TESTER à 
OF. A 
JR Z'HI£ 
CEC A 
Mig LEO (TESTER: 
JF HE,SUPRES 
FLISH HL 
LD HL,ELIFFER 
LC € HELF 2. HL 
FÜF  HL 
FOF  AF 
EX CSP HL 
VEF<4 LEFE #4CF,6,#34 
HNETIHAL LC A: {TESTER ? 
OR A 
IF: HZ, SUFRES 
POF  AF 


EX  CSF3,HL 
CEFE #CF,9, #54 


3 ROUTIHE FOUR MODE READY 
REACH LC 


A0 TESTER : 
DK À ’ 
FRET € 
#OR À 


WIEHT D CLAVIER 


5FETIRE ADRESSE DE RETOUR 
SAUVE ACCU 

iTESTE OCTET FORT 

3VIENT DE ROM DISQUE + 

3 HOH 


3FIKHER FLAG 

iHE FAS SÛRTIR CARACTERE 
3 SAUVE HL 

RETIRE FOINTEUR EUFFER 
CARACTERE EST IL LF 7 


SEFHRATIOH 


MEMOIRE CHRACTERE 


:44 CARACTERE 


i 44 CARACTERES MRAI 





3 RETIRE CHFACTERE 
1 RESTE 


3RETIFRE CARACTERE 
3FSTE 


iTESTE FLAG 
:FAS D'ERREUR 
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à DETOURNEMENT POUR #BEGE KM MAIT CHAR 
: VALEUR DÉFAUT FOUR ERREUR ELECTRONIQUE 


LD 
LE 
LE 
LE 
JF 


à CECAHCEL 


KW 


EKS 
CEFAUL 


à FOUT IME 
GETTXT 


Li 


LOF 


SFESTAURER LES  FPOINTEURS 


PUSH 
LL 
OF 
JE 
PQ 
DEFE 
LC 
LD 
FOP 
LE 
FRET 


FOUR 


CF 
FRET 
LC 
LC 
LC 
LC 
LD 
CP 
IHC 
JF 
CEC 
FLISH 
CEC 
IHC 
INC 
LC 
CF 
JF 
LC 
LC 
PÜF 
Ex 
INC 
LC 
THE 
LC 
FET 


i TESTER : À 
HL , EUFFEF: 
€ HELF 2, HL 
E.13 
#CHG4 


AF 

A. TESTER 
A 

HE, CEFAUL 
AF 


#CF, #30. #94 


A: 4 

& TESTER ?, À 
AF 

A: LE 


3: SAUVE ACCU 


3 DEFAUT 


RESTITUER LE TEXTE D'ERREUR 


1 

HE 

Es l#+4 
Doc la+10 
Co #FF 
HL.EUFFER 
AC HL 

13 

HL 

ë,Li 

HL 

HL. 

HL 

C 

HL 

4 HL à 

15 
HZ, LOF 
A 
CCE. 
HL 

CE: HL 
HL 
CHLUE 
HL. 
HIT 


ET 439" 


il PARAMETRE Ÿ 

MAUVAIS HÔOMERE DE FARAMETRES 
:OCTET FAIBLE 

:OCTET FORT 

à: COMFTEUI: 


iRETOUR CE CHARIOT % 


iTROUVE LE 1ER CHRACT, TEËXTE 


à: FAHGER 
iMOIHE 1 


iRETOUR GE CHARIOT 


: FAHGER LONGUEUR: 
3 AC 





E CE TEXTE 


:QCTET FHRIBLE 
; OÛTET FORT 


FESET 
LOG H,6VER 2 3 HUMER DE VERSIOH 
CF #71 
JR HZ. CPC8EéE 
LD A,#C3 
LD  CH#ACE17,H 


CPCSEE LD  A,#CF :RSTZ 

LD ©#BESAJ,A 3 OUT CHAR 

LD SHBEDE ZA KM WAIT CHAR 
LD  A#CF :RST #38 

LD CHECSE 2, A :CAS CATALOG 
LD  HL.(VEK4+17 3 QUTCHAR 

LEO  €H#BBSE2.HL 

LD HL,CVEKS+1) :KM MAIT CHRE 


LD € HE? 2, HL 
LC HL, #H85E 


LD  C#EC3C),HL CAS CATALOG 
RET 
CAT 
PUSH AF SAUVE REGISTRES 
FUEH HL . 
CALL. RESET iRESTAURE VALEUR CRIGIHE 
POP HL 
POP AF 
CALL #BC9E CAS CATALOG 
PUSH HL 
EUSH AF 
CALL SET ACTIVER À HOUVEAU 
POP AF 
POP HL 1RESTAURE REGISTRES 
RET 
:POINTEURS ET MEMOIRE AUXILIARE 
YEK3 LEFU à :VECTEUR OUTCHAR 
TESTER  LEFE @ 
VER DEFE 4 
HELF LEFU EUFFER 
BUFFER  DEFE "O","K", #0 
DEFS 4ÿ-3, :EUFFER 44 CARACTERES 
Text:11514 End: 14468 2354 Bytes 


Hem: 26475 
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*##Y Foutine d’intercePptiom des erreu 
##4 Cod 1895 bu data Becker ambh js 
"#4 CPC déd / 

RU 








# B18s 
# 


F4 CEFIHT b-r 


A Et 


SE RERREEEREEREERRETREE 


Etc] adresses ’'Adreszsse de depart de la routine 


9,9, 41.DE 
114 DATA 32,46,81,F1, CD, GC, B3, 3 34, 46:81: FE, 71, 2, GS, SE. CS 
124 DATA 32,41.AC.3E,C3,22,5A,86,32,06,88,32.96,EC; 34:48 


149 DATA C3.99,89,C3,0E,84,C3,4S,€1,CD0, 49,69. 





136 DATA #1.FE,71,24,46.21,66,84,22, 4 





AC, 2A,9E, BB, 22,49 


144 DATA 2a,21,66:20,22,5B; EE, 2hA,647.B86.22,D3.94,21,CA,59 
156 DATA 22,97,PPB.24.9C,EC.22,43,%1,21,31,81.22,90,B0,21 


164 DATA 43,81,22,47,91,C9,E3,F5,7C,FE, CE, 24,1E,3E,41; 
23, FOFE.ES 


176 CATA 45,21,F1,ES,2A, 47,81,FE. 6,28. 8B, ré: 





5e 


159 DATA 29,91,26,22,47,81,E1,FS,F1,E3,C9,34:46,81:FE; 71 
129 DATA 28.19,5A,45,81.67,28,01,30,32,45,81,24.EA,ES. 21 
249 DATA 49,51,22,47,81.E1, ch ee 94,94,3A.45, 681,67. 24 
219 DATA D7:F1,E3,CF,00,94,34,45,51,B7,08,AF,32,45,81,21 
S1.67,24 


ca DATA 43,91,22,47,81, IE, 12,03: 94, CA, F5: GA, d 
234 DATA &G4,F1,CF,30 
249 DATA CG,00,SE,44,00,56.41:@E,FF,21,49,81: 
259 DATA 28,FA;2B,ES,26,00,23,7E,FE, 60,24, F4, 
264 DATA 23,F73,23.7 
274 DATA AC.3E;CF: 


























284 DATA 59,22,5B.B8.24,02.84,22 ÊRE BE, AG 
294 DATA CSFS.ES. C0. 81,E1. F1: 0 ES FE 
344 CATH F1.E1.C9.66.@4, 06, 44, 49, 48: 60 
2 ; 

FOE isadresse T0 adresseté1d4f 

FEAC a$:a=VALé "état 

FÜÛKE i,3: ESe+a 

HEXT 


IF 5537093 THEM PRINT CHRgé FOUE## Erreur 


AdaPter à la zone memoire 


DBDOMJUNEOQ US 
Et 9 St 9 10 


e TO adresse+tidn 









Hs He HE co GE Lo CO EL 9 CT EL 


R7E “AND FERMES THEH GOSUE 455 





dd HEAT 

454 PRINT CHRSE T1: INPUT "Hom du fichier :"3a$ 
4e SHYE a$.b. ar &idc 

+74 EH 









494 a4=PEEKS 1-1 +25 #P : Ad=UMTé ad is 

ag POKE i-1.34 AMC F: se. faible 

514 POÉE 1,8FF AMD IHTéad-256 1: foctet fort 
ae FETURH 
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D 





A:3E.:44,38,45,81:F1:3E; 43, C9FE. 81 
TE FE, @0, 23 


F3,1£2,E1,EE 


9,24,46:81.FE;71:20,08:2E, C3: 
Pen CF,32,96.EC, 24,9 


En 


CAN! 








2e, Ai 


32.61 


88, 40, EC 


CC, 43,54 


data 


LEE!" 


EH 


5,3 GESTION DE FICHIERS RELATIFS 


Vous avez appris au chapitre 1,5 comment on programme les fichiers 
séquentiels et vous êtes certainement impatient de découvrir les fichiers 
relatifs qui offrent vraiment quelques avantages remarquables, Ce mode de 
programmation n'est toutefois pas toujours optimal: notamment pour de 
petites applications, l'utilisation des fichiers relatifs ne présente 
aucune intérêt car elle prendrait plus de temps et de place que la 
programmation séquentielle des fichiers. Ce n'est que si des corrections 
et divers accès au fichier sont souvent nécessaires que les fichiers 
relatifs deviennent très vite intéressants, Outre la différence dans le 
travail exigé de l'utilisateur par les fichiers relatifs ou les fichiers 
séquentiels, il existe d'autres différences importantes. 


Tout d'abord, avec un fichier relatif, il n'est plus nécessaire de 
charger un fichier entièrement en mémoire pour pouvoir le traiter. Les 
boucles compliquées pour rechercher ou pour lire un enregistrement 
déterminé du fichier deviennent également superflues. Il y a au lieu de 
cela d’autres règles qu'il faut suivre: c'est ainsi qu’il faut réfléchir 
auparavant très sérieusement à la taille maximale que pourra avoir un 
enregistrement (combien de caractères notre enregistrement pourra-t-il 
comporter?), et au nombre d'enregistrements que contiendra notre fichier 
(combien d'enregistrements voulons-nous traiter?), Avec les fichiers 
séquentiels, vous pouviez jusqu'ici faire l'économie de cette réflexion 
préalable, bien que tout programmeur sérieux doive en fait toujours 
essayer d'évaluer la taille de son fichier avant de commencer son 
travail, ne serait-ce que pour savoir combien d'enregistrements rentrent 
sur une disquette. 


Nous allons maintenant effectuer un tel calcul en reprenant notre exemple 
du chapitre 1,5; vous vous souvenez certainement de notre agenda 
téléphonique: 

Nous avons TROIS champs de données 

Champ 1) Nom 

Champ 2) Prénom 

Champ 3) Numéro de téléphone 


Supposons maintenant que vous vouliez sauvegarder 50 enregistrements de 
ce tvpe, nous aurons alors 50 enregistrements. 
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Pour pouvoir accepter le cas échéant d'autres enregistrements, nous 
créerons 100 enregistrements, Il nous faut maintenant déterminer encore 
la taille des enregistrements, I1 faut pour cela attribuer d'abord à 
chaque champ de données une longueur maximale qui ne pourra plus être 
ensuite dépassée dans le programme. Vous devez donc veiller à ce que ces 
limites soient respectées car sinon cela peut entraîner des 
complications, Il s'agit là d'une contrainte que vous retrouverez pour 
tous les fichiers relatifs, même sur les plus gros ordinateurs, La taille 
d'un enregistrement est un élément important pour un bon déroulement des 
calculs qui permettront de déterminer où tel ou tel enregistrement se 
trouve, 

Avec NOTRE gestion de fichiers relatifs, vous avez même une certaine 
marge de manoeuvre puisque vous pouvez dépasser sans crainte les limites 
des différents champs de données pourvu que vous raccourcissiez le champ 
suivant en fonction de ce dépassement, Nous avons prévu cela pour rendre 
la gestion de fichier un peu plus souple mais 11 n’en va pas de même sur 
tous les systèmes! Vous devez simplement veiller à ce que la longueur 
totale ne soit pas dépassée. Mais revenons à notre exemple: 


Nous devons attribuer maintenant les longueurs maximales, c'est-à-dire le 
nombre maximum de caractères autorisé pour chaque CHAMP DE DONNEES. 
Choisissons par exemple les limites suivantes: 


Champ 1) Nom (25 caractères) 
Champ 2) Prénom (15 caractères) 
Champ 3) Numéro de téléphone (15 caractères) 
Total 55 caractères 


Le nom peut donc comporter au maximum 25 caractères, ce qui devrait 
suffir même pour des doubles noms, le prénom est limité à 15 caractères. 
Nous avons enfin encore prévu au plus 15 caractères pour le numéro de 
téléphone. Cela nous donne au total 55 caractères par enregistrement. Il 
faut encore ajouter 3 à ces 55 caractères car nous avons trois champs de 
données qui doivent être séparés les uns des autres, Le symbole de 
séparation ne serait pas nécessaire si les champs de données avaient une 
taille fixe mais comme ce n'est pas le cas nous aurons besoin également 
avec les fichiers relatifs d’un symbole de séparation. Nous arrivons 
ainsi à une longueur de 


58 caractères 
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Mais pour que la routine de gestion de fichiers relatifs ne soit pas trop 
longue -car c’est vous qui devrez la taper- nous avons prévu une limite: 
la longueur d'enregistrement doit être arrondie à la prochaine puissance 
de 2, Dans notre exemple, cela signifie que nous indiquerons 64 comme 
longueur d'enregistrement, 


La longueur maximale d'enregistrement est de 512 octets, vous avez donc 
le choix entre les longueurs d'enregistrements suivantes: 


2, 4, 8, 16, 32, 64, 128, 256 et 512 


Vous pouvez ainsi choisir entre 9 différentes longueurs d'enregistrement 
possibles, Si la longueur d'enregistrement que vous avez calculée est par 
exemple de 32, alors vous avez de la chance et vous pouvez indiquer aussi 
32 comme longueur, Si par contre vous arrivez à un caractère de plus, 
vous devez soit choisir la longueur d'enregistrement 64, soit essayer de 
réfléchir à nouveau si vous ne pouvez pas raccourcir l’un ou l'autre des 
champs de données. Dans notre exemple, nous avons calculé une longueur de 
58, La différence entre 64 et 58 est de 6. Vous aurez donc 6 octets en 
trop pour chaque enregistrement qui seront ainsi “gaspillés”. Vous pouvez 
donc prendre en compte cette longueur d'enregistrement et augmenter 
encore l’un ou l'autre des champs de données de 1 ou 2 caractères. On 
peut cependant tout à fait accepter cette contrainte. Pour les fichiers 
relatifs, vous pouvez oublier les instructions utilisées jusqu'ici pour 
les fichiers séquentiels, à part les instructions OPENIN et CLOSEIN. Par 
contre nous utiliserons 4 nouvelles instructions: 


TINIT, <longueur > 

IRECORD, <numéro d'enregistrement> 
IPUT,<liste de paramètres> 
IGET,<liste de paramètres> 


L'instruction GET est comparable à l'instruction LINE INPUT et concerne 
donc la lecture des données, PUT sert à l'écriture des données et est 
donc comparable à PRINT. 


Lorsqu'un champ de données doit comporter des nombres, ces nombres 
doivent être convertis en une chaîne de caractères avec l'instruction 
STR$, Pour les nombres réels, la longueur d’un champ de données est alors 
de 12 et de 9 seulement pour les nombres entiers. 


Comme le lecteur de disquette DDI-1 ne permet pas normalement le travail 
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avec des fichiers relatifs, ceux-ci seront simulés avec des fichiers 
séquentiels. Avant que nous puissions travailler avec un fichier relatif, 
celui-ci doit d'abord avoir été “créé”. Nous réalisons cela en créant un 
fichier séquentiel dans lequel il n'y aura rien. Souvenez-vous que notre 
fichier d'exemple doit comporter 100 enregistrements avec une longueur 
d'enregistrement de 64 caractères. Nous avons donc besoin d'une place 
mémoire de 100*64 = 6400 octets. La création d'un tel fichier est très 
simple: 


30 REM =============2=22=2=22=2=2222222 


50 OPENOUT “Fichier.Rel" 
60 FOR i=0 TO 100 

70 PRINT STRING$ (64,32); 
80 NEXT 

90 CLOSEOUT 


La boucle en ligne 60 doit contenir le nombre d'enregistrements prévu, 
100 dans notre exemple. La ligne 70 réserve la place nécessaire pour 
chaque enregistrement; nous remplissons donc notre fichier (encore) 
séquentiel avec des caractères espace (vous pouvez choisir n'importe quel 
caractère), Le point-virgule en ligne 70 permet que le calcul tombe tout 
à fait juste. Ces quelques lignes sont suffisantes pour créer un fichier 
relatif que nous allons maintenant pouvoir traiter. 


Nous pouvons maintenant écrire 100 enregistrements dans notre fichier et 
dorénavant chaque enregistrement aura un numéro qui le définit de façon 
précise. Le premier enregistrement aura le numéro d'enregistrement O0, 
Lorsque vous ouvrez un fichier relatif, vous pouvez toujours utiliser 
l'instruction OPENIN, Il est possible d'écrire et de lire simultanément 
dans un fichier relatif mais l'ouverture se fait toujours avec OPENIN!! 


L'instruction IINIT permet de définir la longueur d'enregistrement. Cela 
doit être fait IMMEDIATEMENT après l'ouverture du fichier. OPENIN et 
IINIT marchent toujours ensemble, comme deux frères  siamois. 
L'instruction IINIT a un paramètre; vous pouvez utiliser aussi bien des 
constantes (ce qui sera le plus souvent le cas) que des variables. Dans 
notre exemple, vous devriez entrer: 


IINIT,64 


- 11 145 - 


Il serait cependant également possible d'entrer: 
longueurenregistrement-64:IINIT, longueurenregistrement 


Avec l'instruction IRECORD, vous pouvez déterminer quel est le prochain 
enregistrement qui devra être traité: il est indifférent à cet égard que 
vous vouliez lire ou écrire cet enregistrement. Le premier enregistrement 
a le numéro 0, Si cela vous ennuie, vous pouvez fort bien laisser de côté 
ce premier enregistrement ou l'utiliser comme mémoire spéciale. 
L'instruction IRECORD a également un paramètre qui peut également être 
une constante ou une Variable. Avec l'instruction IRECORD il est 
cependant plus probable qu'on ait à utiliser une variable comme 
paramètre, Pour vous positionner par exemple sur le 36ème enregistrement, 
entrez: 


IRECORD, 35 


Les instructions IGET et IPUT ont une syntaxe identique. L’instruction 
IGET retire des données de l'enregistrement sélectionné et l'instruction 
IPUT écrit des données dans l’enregistrent sélectionné, Les instructions 
IGET et IPUT ont un nombre de paramètres quelconque compris entre 1 et 
32, Si vous n'entrez aucun paramètre, vous n'aurez pas de message 
d'erreur, mais l'instruction restera sans effet, Vous ne pouvez 
transmettre QUE des variables alphanumériques. Les constantes qui doivent 
etre écrites doivent auparavant avoir été affectées à une variable 
alphanumérique. Supposons par exemple que nous voulions écrire le mot 
“Cheval” dans le 24ème enregistrement, Nous devrons alors entrer la 
séquence d'instructions suivante: 


10 OPENIN “Fichier ,REL" 
20 IINIT,64 

30 IRECORD, 23 

40 a$="Cheval” 

50 IPUT,@a$ 

60 IINIT,O 

70 CLOSEIN 


Cette exemple nous permet de noter deux particularités. Avant de fermer 
un fichier relatif, vous DEVEZ entrer l'instruction IINIT,0O et ce n'est 
qu'après que vous pouvez fermer le fichier, Cela garantit que des données 
qui pourraient se trouver encore en mémoire avant la fermeture du fichier 
Soient écrites sur la disquette. Une seconde particularité tient à 
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l'instruction IPUT: la variable alphanumérique ne peut pas être indiquée 
directement après la virgule, vous devez placer un @ devant, Il ne s'agit 
pas là d’une lubie des auteurs de cet ouvrage mais d'un défaut du système 
d'exploitation qui ne prévoit que cette possibilité comme unique 
interface entre le Basic et le langage machine, Cette petite difficulté 
ne devrait cependant pas vous gêner outre mesure car il est facile de s'y 
habituer, Si vous voulez transmettre plus d’un paramètre à l'instruction 
IPUT, vous devez séparer les différents paramètres entre eux par des 
virgules. Nous allons par exemple écrire encore le mot “Chat” dans notre 
enregistrement : 


10 OPENIN “Fichier .REL" 
20 IINIT,64 

30 IRECORD, 23 

40 a$="Cheval” 

45 b$="Chat" 

50 IPUT,@af$,eb$ 

60 IINIT,O 

70 CLOSEIN 


Il est par ailleurs indifférent que vous écriviez tous les champs de 
données d’un enregistrement dans une seule instruction IPUT ou que vous 
le fassiez en plusieurs instructions car des pointeurs internes veillent 
déjà au bon déroulement des opérations. Nous pouvons relire les données 
tout aussi simplement que nous les avons écrites, grâce à l'instruction 
IGET, 

Vous pouvez ici transmettre un nombre quelconque de variables 
alphanumériques comme paramètres. Il est tout aussi indifférent que vous 
lisiez tous les champs de données dans une seule ligne ou en plusieurs, 
Nous allons maintenant relire notre enregistrement: 


10 OPENIN "Fichier .REL" 
20 IINIT,64 

30 a$="" : b$="" 

HO IRECORD, 23 

50 IGET,@a$,@b$ 

60 PRINT a$,b$ 

70 TINIT,O 

80 CLOSEIN 


Lorsque vous transmettez des variables alphanumériques comme paramètres à 
la routine IGET, celles-ci doivent avoir été déjà rencontrées au moins 
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une fois dans le programme, sinon l'interpréteur Basic vous enverra le 
message d'erreur: 


Improper argument 


Voilà en fait tout ce que vous devez prendre en compte. Pour ne pas 
allonger les routines plus que nécessaire, nous avons renoncé à la 
plupart des interrogations d'erreur. Vous devez donc veiller vous-même 
dans votre programme à ne pas fournir de numéros d'enregistrement trop 
importants (ce qui pourrait entraîner de gros désagréments) et vous devez 
également faire attention à ne pas dépasser la longueur d'enregistrement 
maximale car sinon vous effacerez les enregistrements suivants. Lorsque 
vous avez ouvert un fichier relatif, vous ne pouvez ouvrir aucun fichier 
de sortie avec OPENOUT; vous ne devez donc avoir d'ouvert que le fichier 
relatif, Cela est d'ailleurs bien compréhensible puisque dans un fichier 
relatif, vous pouvez simultanément lire ET écrire. 

Faites attention à bien mettre en place et protéger les buffers d'entrée 
et de sortie au début du programme avec l'instruction: 


OPENOUT ”Dummy” : MEMORY HIMEM-1 : CLOSEOUT 


Vous risquez sinon en effet d'avoir des difficultés lors du travail avec 
les instructions disquette étendues, Si vous voulez vous-même travailler 
avec la routine, prenez le programme d'exemple que nous vous fournissons. 
Vous pouvez voir d'après le programme d'exemple comment et dans quel 
ordre les différentes instructions doivent être utilisées. 


N'utilisez pas l'instruction CAT car elle ferme le fichier sans sauver 
encore sur disquette des données éventuellement nécessaires et elle 
efface le buffer. 


Si vous observez les règles, vous aurez beaucoup de réussite dans 
l'utilisation de cette routine. Le fichier relatif peut avoir n'importe 
quelles dimensions et il peut s'étendre théoriquement sur toute la 
surface de la disquette, Les temps d'accès sont très courts comme le 
démontre le programme d'exemple. Nous avons intégré également, outre les 
instructions pour la gestion des fichiers relatifs, les instructions pour 
la routine d'interception des erreurs (voir chapitre 5,2). Les 
instructions doivent être manipulées exactement comme décrit au chapitre 
5,2, CALL active devient IAN et CALL desactive devient IAUS et CALL msg 
devient IERR. Vous disposez donc encore des trois instructions suivantes: 
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IAN 
JAUS 
IERR©<variable alphanumérique> 


Ces sept nouvelles instructions remédient à toutes les insuffisances du 
lecteur de disquette, Vous pouvez maintenant construire des programmes 
pratiques et sans erreur, sans avoir à recourir à toute sorte d'astuces. 
Nous vous fournissons un listing assembleur ainsi qu'un chargeur Basic, 
Voyez au chapitre 5.2 comment calculer l'adresse à laquelle doit figurer 
l'extension. La longueur de cette routine est de 28297 = 633 octets. 
Normalement (c'est-à-dire pour un programme sans l'instruction SYMBOL 
AFTER), vous pouvez utiliser &93E0 comme adresse de base. 


Comme vous pouvez voir d'après le programme machine comment le problème a 
été précisément résolu, nous n'’expliquerons ici que le principe suivant 
lequel la gestion de fichier a été réalisée. 


5.3,1 EXPLICATION DU PROGRAMME MACHINE 


Si nous voulons avoir un fichier relatif, celui-ci doit d'abord être 
“créé”, Nous créons d'abord à cet effet un fichier séquentiel de la 
longueur voulue. Nous réservons ainsi sur la disquette la place voulue et 
occupons le nombre nécessaire de blocs (voyez également à ce sujet Île 
chapitre 2), Les blocs occupés sont enregistrés dans le catalogue de la 
disquette, avec une entrée du catalogue par bloc de 16Koctets. Lorsque 
nous ouvrons maintenant notre fichier relatif, l'instruction LFINIT,RL 
détermine quels blocs sont occupés par le fichier. Tous les numéros de 
bloc sont sauvegardés (1 bloc est constitué de deux secteurs 
consécutifs). Cette table est la base de la gestion de fichiers relatifs 
car on ne pourrait pas sinon accéder librement aux différents 
enregistrements. La longueur d'enregistrement est en outre sauvegardée 
séparément mais attention: la routine ne contrôle pas si la longueur 
d'enregistrement est vraiment une puissance de deux. Même si vous ouvrez 
un fichier relatif qui a la même longueur d'enregistrement qu'un autre 
fichier ouvert auparavant, l'instruction INIT doit ABSOLUMENT suivre 
immédiatement l'instruction OPENIN car sinon ce sont les anciens numéros 
de bloc qui restent en mémoire! 


A partir des numéros de bloc on peut alors chaque fois calculer le 


secteur à appeler, grâce à l'instruction IRECORD. La routine est 
programmée de façon à ce qu'un secteur ne soit chargé que si c'est 
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absolument nécessaire, Il se peut en effet que ce secteur figure déjà en 
mémoire; cela sera notamment le cas si vous lisez tous les 
enregistrements du premier au dernier. Dans ce cas, notre méthode 
permettra donc de gagner beaucoup de temps. Il faut en outre, avant de 
lire un secteur, déterminer si le secteur se trouvant actuellement en 
mémoire a été écrit avec IPUT, Si c'est le cas, l’ancien secteur sera 
d'abord sauvegardé avant qu'un nouveau ne soit chargé. 


Avec l'instruction IPUT, toutes les variables alphanumériques indiquées 
sont copiées dans le buffer de secteur mais avec l'instruction IGET les 
pointeurs des variables alphanumériques sont simplement détournés vers le 
buffer de secteur et leur longueur est modifiée. 


Voilà donc brièvement le principe de base qui est réalisé dans cette 
routine. Nous avons opté pour les instructions RSX parce qu'elles sont un 
peu plus faciles à manipuler et qu'elles sont en même temps plus 
parlantes que des CALLS, De cette façon vous n'avez (presque) pas non 
plus à vous préoccuper de la zone mémoire dans laquelle est située la 
routine. 


- 11 150 - 


. COPYRIGHT 1985 MICRO-APFLICATIOH. 


.C'AMS. 


Noz 


+5 OM 


j 
TABLE 


JF 


DEF 
JP 
P 
JF 
JF 
JP 
JF 
JP 


DEFN 
C'EFE 
DEFE 
DEFE 
DEFB 
CEFE 
CEFB 





À. 6 #CEG1 


L VER 4, 4 
AF 


#E3AC 


A, 2 VER: à 





NZ. MOZ 
HL, TAËLIS 
MIE +5 
HL, THE 
CA1L+1 2, HL 
CHe+13,HL 


EC, RSK 
HL , KEFHAL 
#ECC1 


TAËLE 


RECORD 
GET 
PUT 


IHIT 


SET 
RESET 
GETTAT 


RECOR 
#EG+"D" 


UGU,"E",#29+"T" 

Up ,'U",#SG4"T" 

MI" SUN", "I", #SG+"T" 
14", #S9+"N" 

A", "U",#8g+"s" 
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3 VERS IUH 
AG 


: ROM EHABLE 


3 VERSION 
3: RANGER: 


iREËTORE 


i46d 


EAN 
Lo] 
à 


3 EATEHTIOHS 
34 OCTETS FAM POUR SYSTEME 
3 INTEGRER EXTEHTIONS 


ADRESSE LES MOTS IHSTRUCT, 


3CETERMINER LONGUEUR 
3 ACTIVER 

DESACTIVER 

RETIRE TEXTE 


DEFE "E","R".#og+"R" 





















CEFE & :FIH CE TABLE 
ÉEFHAL CEFS 4 3MEMOIRE FOUR KERHEL 
FRECORC CF A1 31 PARAMETFE 
FET HE MAUVAIS HÜMERE 
LC CREER :FRETIRE ENFREGISTFEMENT # 
LD CC Is+a 
LC HL , € RECLEH à RECORD LEHGHT 
A CALL MULTI : CE=HL#EC 
E# CE, HL 
LC DE, S1£ LONGUEUR C'UH SECTEUR 
Al : HLEHL/CE -- CESREST 
LC & DFFSET ), DE : RANGER CECALAGE 
LD  DE,124 
OF 4 
FR 4 HOC 
ACC  HL,DE 
HOC LC LE SECHR 2, HL 3 FANGE HUMERD SECTEUR 
AUF À ;: 4=6 
LC CFOIHTE 1,4 3FOIHTEUR SUR ZERO 
LC € POIHTE+1 5, 
LC: LE , € OLDSEC à 
SEC  HL.DE 3MEME SECTEUR 
FRET &# :SI SERQ CANS EUFFER 
CALL SAVE i SAUVER C'ABDRC BLFFER 
LD HL,CSECHR : iRETIFE Ho SECTEUR 
LD  OLCUSEC 3, HL : RANGER SECTEUR 
EF  H 
FF L iHLEHL'Z LE FESTE CANS CARRY 
PLISH AF : RANGE CARRY 
LC CE, #AT9E iTHELE ELOCS 
AG HL.CE RETIRE Ho ELOC 
LC A6 HL 5 ia BLOC 
LC L, 4 
LD  H,ÿ iHL = Ho ELOC 
ACC HL.HL i#2 
POF  AF 3RETIRE CARRY 
LC CE. 4 
ACC  HL.CE 3 AJOUTE CHERRY 
LD LE ; 3 
A& CALL #EDC1 3HLEHL/DE ---- GESRESTE 
IHC  HL i+i 
INC  HL i+i = TRACKH 
LD A,L 3 TRACK 
LC € TEACK à, 4 3 RAHGEF: 
LD AE : SECTOR 
ACC H,#41 AJOUTER DECALAGE 
LC L SECTOR: A :FANGER SECTEUR 
LC DL ; D=TRACK 
LE CA C=SECTEUR 
LC A, 6 #47 2 iGRIVE FOUR OPEHIH 
LC E,f 
LD HL , 6 #45 2 :FOIHTEUR POUR BUFFER INPUT 
DEFE #CF 
CEFU TABI :CALL #C666, CHARGE 
RET : SECTEUR 
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3; SAUVEGARDE CU BLOC 





SHYE 
LD H,CREAURI ) 3 FLAG FERC/URITE 
ÛF 4 
FET Z iFAS HECESSAIRE D'ECRIRE 
LD HL.{TRACK à :RETIRER TFACK/SECTOR 
LG DL 3 TRACK 
LD  C.H à SECTOR 
LD  A,CH#A7DE à 3DRIVE POUR OFEMIH 
LD  E,A DRIVE 
LO HL.C#H7515 3 IHPUT BUFFER 
DEFE #DF 
CEFH TABZ iCALL #C64E ECR. SECTEUR 
“OR A :A=G 
LE <REAWFI A i RESTAURER FLAG 
FET 
GET 
LE  C.f 3 ASGET 
JR  GETFUT 
PUT LU C1 3 1=PUT 
GETFUT OR 4 iTESTE HOMERE FHRRMETRES 
FRET € :<4 ALORS FIM 
LC E, A 3HÜMBRE DCE WARIAELES € ALPHAH, ) 
ACC FH. i$E 
PUSH 14 
FOF  HL iHLeT# 
AGD AL 
LD L.4 
LE A,H 
ACC 4,4 3 HL + HÔMERE # £ -— 1 = 
LC HA 3 POIHTEUR CAMES FARAMETRES 
CEC HL 
LD AC ORDRE # 
LC L'ORCER ?. 4 3 RAHGER: 
LEA FUSH HL 4 FAHGEF: 
LC  HL.<4A?7S1 5 à FOIHTEUR POUR COFEMIM 
LU  DE,(OFFSET) 
ACD  HL,DE AJOUTER CECALAGE 
LG DE,CFOINTE> 
ACC HL,DE 3 HJOLITER CECALAGE 
Ex DE.HL iCE=POINTEUR DANS EUFFER 
FÜP  HL 3FRETIFER ADRESSE 
PUSH EC 
LE B,CHL 1 
DEC  HL 
LG  C,CHLi :AURESSE VARIABLE DAHS BC 
DEC HL 
FUSH HL 
PUSH CE 
FUSH EC 
LD A: € ORDER à 
DFA 
JF HZ,PUTY :PUTer. VARIABLE 
LG  E,f 3: COMPTEUR À ZERO 
Li LC H,6 DE 2 1RETIRE CARACTERE 
CP 13 3CRSFIN % 
JR Z,EHC 
INC E 3 AUGMENTER LONGUEUR 
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EHC 


Et 


ï IHITIALISE 


INIT 


CF 
FRET 
LG 
LD 
LC 
ÛF 
JF 
LD 
LC 
LD 
LOC 


CHL3,D 

HL ; POINTE à 
C4 

E.E 

DE 

HL. LE 

€ POTHTE %, HL 
HL 

EC 

LA 


EC 
Z'EH1 


DE, HL 
CHLi,13 
DE 


DE 

HL, € POINTE à 
HL: DE 

€ POIHTE 5, HL 
Ai 

€ RERAURI 4, À 
LOOP 


FICHIER 


1 

HE 
H,£l4+153 
L,6 T#+9 2 
4H 

L 

2, SAVE 

€ RECLEH 3, HL 
HL, #FFFF 
<OLDSEL à, HL 
DE. €#A79B) 
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ERREUR TROP LONG 


3 FAHGEF LONGUEUR 
:DE=ACRESSE DE CEFART 


3OCTET FAIELE 
:DCTET FORT 

3 ESLOHGLIEUR 
:DE=CE+1 FOUR CR 


3; HOUYEAL  FOIHTEUR 
: POINTEUR SUR TAËLE 


3 PROCHAIHE VARIABLE 
iFETIFRE ADRESSE VARIABLE 
3 HOMBRE CARACTERES 

3: OCTET FAIELE ADRESSE 
3ET OCTET FORT 


3 HLESTRIHG 
RETIRE ADRESSE EUFFER 


: RAGE HOMERE 
iFIH SI CHAIHE VIDE 
iDECALE CARACT. DS EUFFER 


4CR=SYMBOLE SEFARATIOH 


i+1 POUR CARACTERE SEPFARATIOH 


:NOLIYEAL POIHTEUR 


3 RANGER SIGNAL ECRITURE 
FERMER BOUCLE 


il PARAMETRE 7 
3 MAUVAIS HOMBRE PARANM 


3DETERMINER LONGUEUR: 
3 INSTRUCTION INIT,@ 
3 RANGER 


3 AHHULER FLAG 
3ACRESSE ÉELIFFER OFENQOUT 


Lia 
Lil 


î 
FECLEH 
SECHE: 

OFFSET 


TABE 
POINTE 
OFCEF 
GETCHA 
FLE 
FLI 
OHOF 


MULTI 


a1 


[rc] 





LC 
LC 
LC 
OF: 
FRET 
LC 
IHC 
INC 
CIHZ 
LC 
LC 
ACC 
LC 
LC 
LC 
CEFE 
C'EFU 
JF 


CEFH 
CEFH 
DEFH 
CEFE 
L'EFL 
CEFE 
CEFE 
CEFE 
CEFE 
DEFH 
DEFE 
C'EFE 
CEFE 
C'EFE 
C'EFE 


#ÛF: 
LC 
LC 


HL, #71 
E,16 
A, CHL à 


L11 
HL. 2 44729 
EC. #54 
HL , EC 
C'HATES 3, HL 
HL, à 

L #A768 3. HL 
#CF 

GETCHA 

Li 






E4 


[s 
#ed, #CF,7 
Gi 
() 
(s] 


F 
F 


, 


TTL 
Tir in 
DT 


40. (1 


ERA 


IEOMDSS MOD 


F 


HL. DE 
HC, Qi 
FLE 3,4 
CE: HL 
AF 
A:6FL42 
HL,FL1 
CHL 3 
<FLA:,4 
AF 

HL. 
HL : HL 
HC, Gr 
CFL12.4 
() 
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3TRELE ELOCS 


5CERHIER ELOC 


3 FROCHAIH ELOC 


3YICER EUFFER 
CALL #CFE4 DISC IH CHAR 


LONGUEUR EHREG, 1-51 

3 SECTORHR 

3QFFSET DS SECTEUR 

:FLAG 1=ECRIT ELU 

iDERHIER SECTEUR 

:FISTE GU SECTEUR 

SECTEUR Cl SECTEUR 

ESSE #C666 DANS ROM DISQUE 
ECRIRE SECTELF 

iFOINTEUR CAHS ELUFFER 


i#CF6d4 GET CHAK 








à: COMPTEUR 


JR  NZ.01 
RET 


SROUTINE D’ INTERCEPTION LES ERREURS 
SAR RREMER RENE ERNEST 


(0) 1385 ET CATA EECKER GMEH 











3 JS 22-43/1985 
SET LC A: € ONOF à 
OF À 
FRET HE 
LD  A.6YER 2 
LEO  COHOF 3, A 
CP #F1 3464 T 
JR HZ.HÜI 
LC A, #CS 
LD <#ACE13.4 
HO LC 
LC 3 OUTCHAR. 
LC 5 MAIT CHAF 
LC € HÉCSE :CAS CATALOG 
LEO  A,CYER: 3: VERSION 
CF #7 
JF HE, HS 1664 
LEO  HL, REACH 
LD C#ACHE 1, HL :CETOURNER READY 
HO LD HL,5#EESE 
LE CWEK4+12HL 
LC HL., OUTCHE :CETOURHER OUT CHAR 
LC SHÉESES. HL 
LC HL , 6 #BEGT 3 FAHGER ANCIEN VECTEUR 
LC: € VERS +1 3, HL 
LC 
Le :CETOURMER MAIT CHAF 
LE 3: AHÈIEH VECTEULR 
LC 
LD : 
LD €HECACIHL 5 CAS CATALOGUE 


LEO HL,BUFFER 
LC CHELP3.HL 
FRET 


:ROUTIHE TESTE SI CARACTERE VIENT DU CLAVIER 


OUTCHE Ex CSP HL RETIRE ADRESSE CE RETOUR 
FUSH À4F SAUVE ACCU 
LC H:H iTESTE OCTET FORT 
CF #CB 3YVIENT CE ROM DISQUE 
JR ne HEIH : HOW 
LC :1 
LD CTESTER) :À 3FISER FLAG 
POF  AF HE FAS SORTIR CAFACTERE 
PUSH HL SAUVE HL 
LC HL , € HELP à RETIRE POINTEUR EUFFER 
CF 14 : CARACTERE EST LF 
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JR  Z:MHÜT 
:CR AUTORISE COMME SYMECLE DE SEFARATIOH 


LD CHL2.4 MEMOIRE CHRACTERE 
INC  HL 
LD AL 
CF SA+EUFFEREÉHFF :49-CARACTEREST 
JF HE, H1 
CEC HL 5:44 CARACTERES MAXI 
Hi LC € HELP 3, HL 
NOT FOF  HL 
FUISH AF 
SUPRES  FOF AF 
EX «CSP HL : ADRESSE CE RETOUR 
RET iFHS DE SORTIE 
MNEIH LD A, VER) 
CP #71 


JF Z,MEINAL 
LD  A,{TESTER: 


OR HA 
JF Z,N1E 
DEC H 

H1Z LD  CTESTER2.4 
JR NZ, SUFRES 
PUSH HL 


LD HL:BLIFFER 
LEO  CHELF:,HL 
POP HL 
POP  AF :RETIRE CHRACTERE 
Ex CSP), HL 
VEK4 CEFE HCF,4.#24 3RSTZ 


MEINAL LD A: (TESTER : 
OR A 
JF NZ, SUPRES 
FOP AF RETIRE CARACTERE 
E* CSP HL 
DEFE #CF,4,#94 3RSTE 


; ROUTIHE POUR MODE READY 
READYM LD  A,CTESTER) 
A 


OF: iTESTE FLAG 
FRET € : FHS D'ERREUR 
AOF À 


LD TESTER. 
LC HL,ELFFER 
LD <HELP),HL 
LD E,18 
JP #CAS4 


à DETOURHEMENT POUR #BB@é Ki WAIT CHAR 
; VALEUR CEFAUT FOUR ERREUR ELECTRONIQUE 
: CECANCEL 


KUC 
PUSH AF :SAUVE ACCU 
LE  A:CTESTER) 
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VEKS 
DEFAUL 


:FOUTIHE 
GETTET 


LA 


SLOOF 


IRESTAURER LES 


FESET 


HÜE 


ÊF: À 

JF HE, DEFAUL 
FPOF  AF 

CEFE #CF, #30. #9 
LC A, 4 

LC € TESTER 2,4 
POP  AF 

LD A, "C" 

FRET 


ASAT 
3FAS CEFAUT-C 


3 CEFAUT 


POUR RESTITUER LE TEXTE C'ERFREUR 





LE Î 

FRET HE 

LC 

LE 

LC 

LC HL.. EUIFFEF: 

LD 44€ HL 1 

CF 15 

IHC HL 

JF &4LA 

Me HL 
FLISH HL 

GEL HL 

IHC € 

INC HL 

LC A € HL 2 

CF 

JF nee ER 

LC Al 

LC {DEA 

POF  HL 

Ex CE, HL 

INC HL 

LC LHLÈE 

INC HL 

LC LHL 0 

FRET 


LC 
CP 
JR 
LC 
LD 
LC 
LC 
LD 
LC 
LC 


LC 
LE 


POIHTELIRE 


A: CVERD 
#ri 

HE, HE 

A: #CA 

fé HACE1 7,4 
A #CF 

L #BESA 2, À 
L HEBURE 2, A 
A: CF 
cHECSE 3.4 


HL 6 VEK4+1 2 
< RBESE 2, HL 


il PARAMETRE 7 


MAUVAIS HOMBRE FARAN 


; OCTET FAIBLE 
:OCTET FORT 
: COMPTEUR 


:RETOUR DE CHARIOT 


: TROUVE LE ER CARACT. 


à FAHGER 
:MOIHE 1 


:RETOUR CE CHARIOT 


RANGER LOHGLELIF 
: ADRESSE DE TEXTE 


3QCTET FAIBLE 
3QÛTET FORT 


NUMERO DE 


LA] 


HAIT CHAF 
#35 


 RSTE 
OUT CHAR 
3KM 
iRST 
:CAS CATALOG 


: QUTCHAR 
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YERSIOH 


D 


TEXTE 


5EM MAIT CHRE 


CAS CATALOG 


SAUVE REGISTRE 
3 FESTAURE WALEUR ORIGINE 


CAS CATALOG 


ET FEACTIVER 
3RESTAURE REGISTRES 





:FOIHTEURS ET MEMOIRE AUXILIAFE 


CEFH 6 3 VECTEUR OUTCHAF: 
CEFE 

CEFE 

DEFH EUFFER 

CEFE REG, HOC. #FC 

CEFB #AE,#C0, KFC 

ELIFFEF CEFE "OM, MES HGD 





CEFS d4G-5 :EUFFER 44 CAFAÎTERES 


Text 11514 End:1SÈ61: Fa 


Hg: LE PE 


Eutes 
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10 
20 
30 
40 
50 
60 


LEE HE MERE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE ED HE DE DE DE DEDEDE DE DE DE DE DE DE DE DEDEME ED DE DE DE DEEE 


tt Chargeur basic pour instructions RSX ##36343%% 


PAF EEE (C) by DATA BECKER GmBH EEE 
PAIE CPC 464 / 664 / 6128 LÉLEE ES 


MEME MED DE DE DE DE DE DE DE DE DE DE DE DEDE DE DE DE DE DE DE DEDE DE DE DE DE DIE DE DE DE DE DE DE DE DE DE HE DE DE DE DE DE DE DE DE DE DE HE 


70 DEFINT b-z:DEFREAL s,i 


80 adresse=8&8000 ‘adresse de depart de la routine 


90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
350 
340 
350 
360 
370 


390 
400 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


3A,3F,83%,B7,C0,CD,00,B9,F5,3A,01,DE,22,3F,83,F1 
CD,0C,B9,3A,3F,83,FE,71,28,1D,3E,DF,32,87.80,32 
CA,80,3A,:F,83,FE,C9,20,05,21,45,8%,18,03,21,42 
83,22,88,80,22,CB,80,01,40,80,21,70,80,C3,D1,BC 
57,80,C3,74,80,C3,FF,80,C3,03,81,C3,7D,81,C3,04 
82,C3,FA,82,C3,D3,82,52,45,43,4F,52,C4,47,45,D4 
50,55,D4,49,4E,49,D4,41,CE.41,55,D3,45,52,D2,00 
00,00,00,00,FE,01,C0,DD,46,01,DD,4E,00,2A,BA,81 
CD,D4,81,EB,11,00,02,CD,C1,BD,3A,D1,81,ED,5S,BE 
81,11,80,00,B7,28,01,19,22,RC,81,AF,32,CB,81,32 
CC,81,ED,5B,C1,81,ED,52,C8,CD,E6,80,2A,BC,81,22 
ci,81,CB,1C,CB,1D,F5,ED,5B,9B,A7,19,7E,6F,26,00 
29,F1,11,00,00,ED,54,11,09,00,CD,C1,BD,23,23,7D 
32,03,81,7B,C6,41,32,C4,81,55,4F,3A,08,A7,5F,2A 
51,A7,DF,C5,81.09,3A,C0,81,87,C8,2A,C3,81,55,4C 
3A,08,47,5F,2A,51,A7,DF,C8,81,4F,32,C0,81,C9,0E 
00,18,02,0E,01,H7,CB,47,87,DD,ES,E1,85,6F,7C,CE 
00,67,2B,79,22,CD,81,E5,2A,51,47,ED,5E,BE,81,19 
ED,SB,CB,81,19.EB,E1,C5,46,2B,4E,2B,ES,D5.CS,5A 
CD,81,B7,20,24,06,00,1,FE,0D,28,06,04,28,03.13 
18,F5,€1,70,D1,23,73,23,72,2,CB,81,16,00,58,13 
19,22,CR,81,E1,C1,10,BF,C9,E1,4E,06,00,23,5E.2% 
56,EB,D1,79,B7,C5,28,02,ED,B0,EB,36,0D,D1,13.2A 
cB,81,19,22,CR,81,3E.01,32,C0,81,18,D7,FE,01,C0 
DD,66,01,DD,6E,00,7C,B5,CA,E6,80,22,RA,81,21,FF 
FF,22,01,81,ED,5ER,9B,47,21,19,47.06,10,7E.B7,C8 
12,13,23,10,F8.7A,29,A7,01,80,00,09,22,29,A7,21 
00,00,22,68,47,DF,CE,81,18,DE,40,00,00,00,00,00 
00,FF,FF,00,00,66,C6,07,4E,C6,07,00,00,00,64 ,CF 
07,00,00,00,4F7,57,5F,22,D1,81,22,D2,81,%E,10,CB 
18,0CB,19,30,15,E5,19,30,05,52,D1,81,EB,F5,2%A,D1 


— I] 160 - 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


81,21,D2,81,R6,32,D1,81,F1,E1,29,30,03,52,D2,81 
3D,20,DC,C9,34,D3,81,B7,C0,2%A,3F,83,32,D3,81,FE 
71,20,05,3%E,03,52,01,AC,3E,C3,32,5A,BB,32,06,BE 
32,9B,BC,3A,3F,83.FE.71,20,06,21,4B,82,22,02,AC 
24,5B,BE,22,9E,82,21,5B,82,22,5B,BB,2A,07,BB,22 
c8,82,21,BF,82,22,07.BB,2A,9C,BC,22,3C,83.,271,24 
83,22,9C,HC,21,48,8:,22.40,83,09,E3,F5,7C,FE.CB 
20,1E,3%E,01,32,3E,83.F1,E5,24,40,82,FE,0A,28,0B 
77,23,7D,FE,70,20,01,2B,22,40,83,E1,F5S,F1,E3,C9 
2A,3F,83,FE,71,28,19,3A,3E,85,B7,28,01,3D,32,3E 
83,20,EA,E5,21,48,83,22,40.8%,E1,F1,E3,CF.00,94 
ZA,3E,8%,R7,20,D7.F1.E3.CF,00,94,3A.3E,83,B7,C8 
4F,32,2E,83,21,48,83,22,40,8%,1E,12,C3,94,CA,FS 
ZA,3E,8%,B7,20,04,F1,CF,3C,9A,2%E,04,32,3E,B3,F1 
3E,43,C9,FE,01,C0,DD,5E,00,DD,56,01,0E,FF,21,48 
83,7E,FE,0D,23,28,FA,2B,E5,2B.0C,23,7E,FE,0D,20 
F9,79,12,E1,EB,2%,75,2%,72,09,%A,3F,83,FE,71,20 
05,3E,0C9,22,01,AC,3E,CF.32,54,BB,32,06,BER,3%E,DF 
32,9B,RC,24,9E,82,22,5B,BE,24,C8,82,22,07,BB,21 
8B,8,22,9C,BC,AF,32,D5,81.C9.F5,ES,CD,FA,82,E1 
F1,CD,9B,BC.E5,FS,CD,04,82,F1,E1,C9,00,00,00,00 
48,83,B0,DD,FD,AE,DD.FD,4F,4B,0D 


FOR i=0 TO &34A 


READ 
POKE 


d# 
itadresse,VAL("&"+d#) 


s=s+VAL("S&"+d#) 


NEXT 


IF s<>95703 THEN PRINT CHR#(7)"### Erreur en data ###"2:E 


Adapter a la zone memoire 


FOR i=adresse TO adresse+&34A 
p=PEEK (i) 
IF p>&7F AND p<%84 THEN 810 


NEXT 


PRINT CHR# (7): INPUT "Nom du fichier :";a# 


SAVE 
END 


a$,b,adresse,£&:4B 


- 11 161 - 


800 ” 

810 IF PEEK(i+1)>%7F AND PEEK(i+1)<%84 OR PEEK(i-1)=1 OR PEE 
K(i—-1)=17 THEN 760 

820 ad=PEEK (i-—-1)+p*#256:ad=UNT (ad) -%B000+adresse 

850 FOKE i-1,%FF AND UNT({ad) ‘octet faible 

840 POKE i,%FF AND INT(ad/256) ‘octet fort 

850 GOTO 760 
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LO “HE MMEDDEDEDEDE DE DE DIE DE DE HE DE DE DE DE DE DE DE DE DE DEEE HE HE DEEE DEN 

20 ‘  DEMONSTRATION FICHIERS RELATIFS 

SO HHHHENEHEEDEDE DE DE DE DIE DE DE DID DE DE DE DE DE DE DE DE DE MEN DE DE DE HE HE 

40 

50 MODE 2 

60 

70 ‘RESPECTEZ L'ORDRE DES INSTRUCTIONS SUIVANTES Y COMFRIS 
80 ‘DANS VOS FROFRES FROGRAMMES !! 

90 ‘ 

100 OPFENOUT"DUMMY": MEMORY HIMEM-1:CLOSEOUT 

110 MEMORY %7FFF ‘FROTEGER ROUTINE 

120 ‘“NOTRE ROUTINE D'EXTENSION DOIT A CET ENDROIT 
130 ‘SOIT SE TROUVER DEJA EN MEMOIRE. EN 88000 

140 “SOIT ETRE GENEREE EN %8000 

190 ‘ET ETRE SAUVEGARDEE SUR DISQUETTE SOUS LE NOM 
160 ‘"DISK.BIN". LA LIGNE SUIVANTE SERA ALORS: 

170 LOAD"O:RSX1" 

180 CALL %8000 ‘ACTIVER EXTENSIONS 

190 

200 PRINT"'CREER FICHIER" 

210 OFENOUT"FICHIER.REL" 

220 FOR 1=1 TO 600 ‘600 ENREGISTREMENTS 

250 PRINT#9,STRING#(32,2:2): ‘DE 32 CARACTERES 
240 NEXT 

250 CLOSEOUT ‘FICHIER CREE 

260 ‘ 

270 PRINT"'ECRIRE DONNEES" 

280 OPENIN"FICHIER.REL" ‘OUVRIR FICHIER EN LECTURE ET ECRITU 


290 SINIT,32 ‘INITIALISE FICHIER REL 
500 FOR I=0 TO 599 


310 RECORD, I 

320 A#=STRS# (I): B#=STR$ (12) :C$=STRE (SOR(I) } 

330 iPUT,GA#,GB#$,@C+ ‘SAUVE DONNEES 

340 NEXT 

350 

360 ‘LIRE MAINTENANT LES 600 VALEURS DE FACON SEQUENTIELLE 
370 


380 PRINT"'LECTURE SEQUENTIELLE" 
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FOR I=0 TO 599 
RECORD, I 


IGET,GAS,GE#,@C+ 


PRINT I:A#:;" 
NEXT 
CLOSEIN 


‘TIRER MAINTENANT 100 FOIS UN ENREGISTREMENT AU HASARD 


“;E#:;" 


OPENIN"FICHIER.REL" 


\INIT,32 


FRINT'TIRER AU HASARD" 


FOR I1=1 TO 100 
X=RND#4600-—1 
1 RECORD, X 


1GET,@A+,GH#,GC# 


PRINT 1:A#:" 
NEXT 
CLOSEIN 


"sEgs" 


"sC# 


"3 C4 
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5.4 LE PROGRAMME DE GESTION DE FICHIER 


Le chaos règne dans votre collection de disques où vous ne savez plus 
dans quel classeur se trouve le plus précieux timbre de votre collection? 
Alors ce programme de gestion de fichier est fait pour vous. 


Le programme de gestion de fichier que nous vous fournissons est 
relativement long mais cela ne doit pas vous décourager de le taper car 
il vous offre des possibilités insoupçonnées. I1 n'est pas aussi puissant 
que DATAMAT mais il suffira certainement de par sa vitesse de travail et 
sa souplesse d'utilisation pour de nombreuses applications. 

Peu importe donc que vous vouliez gérer vos adresses ou vos disques car 
aucun masque pré-défini d'entrée ne vous est imposé. Vous disposez de 
Jusqu'à 10 champs de données pour vos enregistrements et vous pouvez 
occuper ces champs de données à votre guise, Le programme est conçu de 
sorte que vous puissiez gérer jusqu’à 200 enregistrements. Les données ne 
sont pas sauvegardées de façon relative mais de façon séquentielle, 
toutes les données étant chargées en mémoire. Nous avons opté pour cette 
solution entre autre par égard pour le lecteur/utilisateur car le 
programme aurait été sinon encore plus long. 


Nous avons intégré les accents français mais ceux-ci ne participent pas 
correctement au tri(!) car le travail fourni serait sinon sans rapport 
avec l'effet recherché, Plusieurs touches ont été échangées, Si ce 
nouveau clavier vous gêne, vous pouvez supprimer les lignes 350-440, I] 
est nécessaire que la routine d'interception des erreurs du chapitre 5,2 
figure également sur la disquette sur laquelle vous sauvegarderez le 
programme de ge tion de fichier, Générez cette routine à partir de 
l'adresse &AOBO, comme nous vous l'expliquons au chapitre 5.2 et 
sauvegardez cette routine sous le nom “error.bin”., C'est tout ce que vous 
avez à faire. 


Après que le programme ait été tapé et que vous l'ayez sauvegardé au 
moins une fois sur dsquette (mieux vaut le sauvegarder plusieurs fois 
sur plusieurs disquettes) ainsi que le fichier error.bin, vous pouvez 
lancer le programme. Vous obtenez tout d'abord le menu à l'écran, Vous 
pouvez maintenant sélectionner les différents points du menu à l'aide des 
touches curseur, en validant votre choix avec la touche ENTER: c'est 
alors le point du menu apparaissant en vidéo inversée qui sera exécuté. 

Les données sont sauvegardées sous USER 1 de sorte que les données sont 
nettement séparées des programmes et données normaux, Pour examiner la 
liste de vos fichiers, vous pouvez sélectionner le point du menu Afficher 
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contenu disquette. Seuls les fichiers sous USER 1 vous seront alors 
montrés, normalement donc vos fichiers. Faites-le et vous verrez que la 
place libre sur la disquette est également indiquée. En actionnant une 
touche quelconque, vous êtes alors ramené au menu principal. 


Créons comme exemple un fichier que nous avons déjà pris comme exemple au 
chapitre 5.3, Nous créerons un agenda téléphonique avec trois champs de 
données : 


Nom 
Prénom 
Téléphone 


Nous pouvons facilement augmenter encore ce fichier de trois autres 
champs de données en ajoutant par exemple les champs de données: 


Code postal 
Localité 
Rue 


Sélectionnez le point du menu Créer/modifier masque et créons notre 
masque avec six champs de données. Les entrées sont validées comme 
toujours avec ENTER. Lorsque vous voulez modifier un champ de données, 
vous pouvez déplacer le curseur vers le haut avec la touche curseur haut 
et réécrire sur le champ de données correspondant, La correction de 
lettres isolées n'est pas non plus possible ici, pour des raisons tenant 
au système d'exploitation, vous devez donc réécrire entièrement le champ 
correspondant, Le curseur saute toujours, après l'entrée, au champ 
suivant immédiatement le dernier champ, Lorsque vous voulez quitter le 
point du menu Créer/modifier masque, appuyez simultanément sur les 
touches CTRL et ENTER, Vous vous retrouverez instantanément dans le menu 
principal. Dès que vous avez entré un enregistrement, vous ne pouvez que 
modifier le masque, mais pas ajouter de données supplémentaires! 


Après que vous ayez créé le masque, vous devez choisir le point du menu 
Entrer/modifier données, Vous obtenez alors le masque d'entrée en mode 80 
colonnes, On vous indique en haut à droite la longueur maximale de vos 
champs de données pour qu'une ligne ne soit pas dépassée. 

Le champ dans lequel vous êtes en train d'écrire est systématiquement 
affiché en vidéo inversée, Entrez d'abord vos propres données, Lorsque 
vous aurez fini, le masque d'entrée sera à nouveau vidé et vous verrez en 
bas à gauche qu'un enregistrement a été sauvegardé. 
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Vous vous êtes peut-être déjà étonné de découvrir en bas à droite de 
l'écran un affichage d'état. Vous en concluez logiquement que ce qui ne 
doit pas être n’est pas possible et qu'il doit donc y avoir encore un 
autre état, Il s'agit ici de l'état de correction. Vous voyez dans Îa 
fenêtre du milieu que le fait d'actionner simultanément les touches ENTER 
et CTRL entraîne une modification de l'état d'erreur. Essayez donc. 


Ce n'est déjà plus le mot Entrée que vous lisez sous le mot “Etat” mais 
Correction. Vous voyez d'autre part apparaître: 


** Remplissez le masque avec le critère de recherche ** 


Cela a la signification suivante: lorsque vous voulez modifier un 
enregistrement, vous devez indiquer au programme de quel enregistrement 
il s'agit. Vous disposez pour cela du masque d'entrée tout entier; mais 
ne craignez rien, vous n'êtes pas obligé de remplir le masque entier de 
données, Entrez par exemple votre prénom dans le champ “Prénom”, vous 
pouvez faire défiler les autres champs simplement avc la touche ENTER. 
Dès que vous avez terminé tous les champs avec ENTER, vous vous trouvez à 
nouveau dans le mode d'entrée, Mais s'il y a par exemple dans votre 
fichier plus d'une personne portant le même prénom, il se peut qu'un 
autre enregistrement vous soit proposé à la correction car seul le 
premier enregistrement correspondant à votre description a été pris en 
compte. 

Supposez qu'il y ait parmi vos amis deux Pierre et que votre femme vous 
explique que Pierre a maintenant un nouveau numéro de téléphone. De quel 
Pierre s'agit-il donc? Si on vous indique cependant l’ancien numéro que 
vous connaissiez par coeur, vous pouvez identifier sans peine le “bon” 
Pierre. De même que vous avez besoin dans un tel cas de plus 
d'informations, de même vous faut-il fournir également plus 
d'informations à votre ordinateur de façon à exclure toute confusion. 
Dans notre exemple, il serait donc plus sensé d'entrer également le 
numéro de téléphone dans le champ de données prévu à cet effet pour 
éviter ainsi tout problème. C'est ce qu'on appelle une COMPARAISON ET qui 
est alors exécutée, c'est-à-dire que toutes les indications fournies 
doivent correspondre, Si vous faites rechercher un enregistrement qui 
n'existe pas, vous obtenez le message d'erreur: 


** Cet enregistrement n'existe pas ** 


Vous vous trouvez alors toujours en mode de correction et vous pouvez 
lancer une autre tentative, 
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Vous pouvez sortir du mode de correction à tout moment avec CTRL/ENTER; 
vous revenez alors au mode d'entrée et la correction n'est pas 
entreprise!! 

Vous pouvez sortir à tout moment du point de menu Entrée/correction en 
entrant fin dans n'importe quel champ de données. 


Mais venons-en maintenant brièvement aux autres points du menu: 


Charger données et Sauver données 

Les données entrées ainsi que le masque sont chargées ou sauvées. Vous 
pouvez indiquer un nom de fichier qui ne doit pas comporter plus de 8 
caractères, Vous revenez au menu principal avec CTRL/ENTER. 


Supprimer données 

Vous pouvez supprimer un enregistrement. À cet effet, vous pouvez le 
faire d’abord rechercher comme dans le point du programme Créer/modifier; 
avant qu'il ne soit supprimé, vous devez confirmer votre intention après 
une question de sécurité. 


Sortir données 

Vous pouvez choisir si la sortie doit s'effectuer sur l'imprimante (I) ou 
sur l'écran (E). Après que vous ayez actionné soit la touche "E” soit la 
touche “I”, vous pouvez sélectionner quels champs de données doivent être 
sortis; c'est intéressant pour sortir des listes qui ne doivent pas 
contenir tous les champs de données, Si un champ de données ne doit pas 
etre sorti, appuyez simplement sur la touche ENTER pour le champ 
correspondant, sinon marquez le champ avec un caractère quelconque; il 
suffit donc que vous appuyiez ESPACE/ENTER pour que le champ soit sorti. 


Afficher contenu disquette 
Le catalogue de la disquette est affiché sur l'écran. 


Fin du programme 

Ne choisissez ce point du programme qu'après que vous ayez déjà 
sauvegardé sur disquette vos données et éventuellement les corrections 
que vous Yÿ avez apportées; le programme ne vous demande pas de 
confirmation de sécurité. 


Tout supprimer 


Toutes les données en mémoire sont supprimées, le programme est à nouveau 
démarré. 
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10 


PE DEDEDEDE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE NEED DE DE DE DE DE DE DE DE DE DE DE DEN DE DE DEEE HEIN 


20 ‘##w##x (cc) 1985 by DATA BECKER 246436262666 E EEE EE JE DEEE 
30 ‘##### Auteur : Joerg Schieb ##4#34#4 446466 N 
40 ‘####s# Gestion de fichier 4466466266 EOEDEE EE DEEE DEEE DEEE 
45 ‘#x#### Debut de prg. pour cpc 464 / 664 / 8128 *x##% 
SO HR DE DE DEN DIE DE DIE DE DE DE DE DE DE DIE DE DE DE DEIE DE DE DE DE DEEE DEEE DE DE DE JE DEF DEEE TEE 
60 

65 ‘ Pour un 664 ou un 6128, 

66 modifier la ligne 3170 : ERR<>32 

70 

80 SYMBOL AFTER 91 

90 MEMORY &AO0O-1 

100 LOAD "“O:error.bin" ‘error.bin doit avoir 

101 ” ete creee en &a000 

110 CLEAR 

120 ‘ 

130 ON ERROR GOTO 3170 

140 ON BREAK GOSUE 960 

150 OPENOUT “dumm“ 

160 MEMORY HIMEM-1 

170 CLOSEOUT 

175 DEFINT a-z:active=&A000:msg=&A00%: desactive=&A006:ds$="+ 


":CALL active 





180 DIM ma+$(20) ,m#(9) ,1 (20) ,d#(200,9) ,dat(9) 

190 cursorup$=CHR$ (240) : cursordown#t=CHR# (241) 

200 USER, 1 

210 : 

220 REM =================2222==2=2==S====2=== === 

250 REM Definition des accents francais 

240 REM ============2=2=SS2S==2S=2SS==SS====S== 

230 : 

260 DATA 1275,91,136,92,137,95,152,125,125,124,154,125,129,12 
6 

270 FOR i=i TO 7:READ a,b:KEY a,CHR#(b):NEXT 

280 SYMEOL 126 , O , O , 60 , 102 , 96 , 102 , 60 , 24 

285 SYMBOL 12535 , 96 , 48 , 120 , 12 , 124 , 204 , 118 , © 
290 SYMBOL 124 , 60 , 107 , 60 , 102 , 102 , 102 , 60 , © 
295 SYMBOL 125 ,, 48 , 24 , 102 , 102 , 102 , 102 , 68% , © 
300 SYMEOL 91 , 48 , 24 , 60 , 102 , 126 , 96 , 60 , Q 
305 SYMEOL 92 , 12 , 24 , 60 , 102 , 126 , 96 , 60 , © 
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H0 SYMBOL 93 , 60 , 102 , 60 , 102 , 126 , 96 , 60 , 0 

315 SYMBOL 94 , 120 , 204 , 120 , 12 , 124 , 204 , 118 , O 
320 SYMBOL 95 , 60 , 102 , O , 102 , 102 , 102 , 653 , O 
325 SYMBOL 96 , 60 , 102 , 24 , 24, 24 , 24 , 8680 , O 

350 KEY DEF 29,1,124,92 

30 KEY DEF 28,1,123,91 

370 KEY DEF 26,1,125,93,124 

380 KEY DEF 24,1,126,94,ASC("#") 

370 KEY DEF 19,1,58,42 

400 KEY DEF 17,1,59,43,64 

410 KEY DEF 18,0,15,13,140 

420 KEY 140,"#ESCx"+CHR# (13) 

450 : 

460 DATA Charger donn\es,Sauver donn\es,Entrer /modifier donn 
\es, Supprimer donn\es,Trier donn\es,Sortir donn\es,Afficher 
contenu disquette,Cr\er/modifier masque,Fin du programme,Tou 
t supprimer ,fin 

47Q : 

480 i=O : WHILE mat(i)<>"fin" : i=i+i 

490 READ ma#(i) : 1(i)=LEN(ma#(i))/2 

500 WEND : nmbmask = i-1 

510 STAT=O: INE 0,0 : INK 1,13 : BORDER O : PAPER O : MODE 1 
: PEN 1 : PEN #1,0 : PAPER #1,1 

520 WINDOW #1,1,40,1,3:CLS #1:LOCATE #1,16,2:PRINT #1,"ME N 


530 FOR i=1 TO nmbmask 

540 LOCATE 20-1(i),5+i#2 : PRINT ma#(i) 

590 NEXT 

560 champ=1 : PEN #1,1 

570 PAPER #1,1 : FEN #1,0 

580 WINDOW #1,20-1 (champ) ,20+1 (champ) ,5+champ*?,5+champ#2 : 
PRINT #1,mat (champ) 

590 d?t=INKEV#:1IF d#$&="" THEN 590 

600 PAFER #1,0:PEN #1,1:1F d$=cursorup#f THEN FRINT #1i,ma#(ch 
amp) :champ=champ-i:1F champ=Q THEN champ=nmbmask:GOTO 570 EL 


610 IF df=cursordown#t THEN FRINT #i,mat (champ) :champ=champ+i 
IF champinmbmask THEN champ=i:GOTO 570 ELSE 570 

6820 IF d£Œf>CHR#(1Z) THEN 3590 

630 ON champ GOSUR 1680,1240,2190,2690,2810,2940,1940,2020, 1 
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880, 


640 
6530 
6860 
670 
680 
670 
700 
710 
720 
7530 
740 
750 
760 
770 
780 
790 
800 
810 
820 
850 
840 
850 


640:GO0T0 510 
CALL desactive: RUN 120 ‘Supprime tout 


REM =======2=2———2 222 
REM Cherche le tableau de cha'nes dat 
REM =======22-=2—222———— == 
IF nombre=0 THEN found=0 : RETURN 


FOR i=1i TO nombre 


FOR i9=0 TO nombrechamps-i 
IF dat(i9)="" THEN 750 
IF dat(i9)<>d#(i,i9) THEN 770 
NEXT i9 
found=i : RETURN 
NEXT i 
found=0 : RETURN 


IF nombre“? THEN RETURN 
EVERY 50,0 GOSUR 2870 


d#(i1,i2)=d# 


860 FOR i1=1 TO nombre-1 

870 ver=ii 

880 FOR i2=ii+1 TO nombre 

890 IF d$#(i2,champ)<d#(ver ,champ) THEN ver=i2 
900 NEXT 

910 FOR i2=0 TO nombrechamps-1 

920 dt=d#(ver,i2) : df(ver,i2)=d#(i1,i2) : 
950 NEXT 

940 NEXT 

930 i=REMAIN(O) 

960 RETURN 

970 : 

980 REM ========2==2=2=22222=222S==2ESSSSSSSESES 
990 REM Tester si un nom de fichier existe 
1000 REM ============2===s=S2S2S2SSSSSSSSSSS== 
1010 : 


1020 nf=0 : ef=0 : OPENIN file#+".dat" : IF ef THEN 1020 
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1030 


found=i-nf : 


‘istrouv\, 


=pas trouv\ 











1040 CLOSEIN 

1050 RETURN 

1080 : 

1070 REM ==========2==22===S=22===2=== 

1080 REM Supprimer cha'ne Nr. Sn 

1090 REM ===========2=22==2=2========= 

1100 : 

1110 IF nombre=i THEN nombre=0O : RETURN 

1120 FOR i=sn TO nombre-1 

1130 FOR i1=0 TO nombrechamps-1 

1140 d&(i,il)=d#(i+1,i1) 

1150 NEXT 

1160 NEXT 

1170 nombre=nombre-i 

1180 RETURN 

1190 : 

1200 

1210 REM Sauve fichier sur disque 

1220 

1250 : 

1240 GOSUB 1490 : IF file$="*ESC*x" THEN RETURN ELSE GOSUB 10 
20 : IF found=0 THEN 1510 ELSE WINDOW #1,1,40,25,25 : PAPER 
2 3 INK 2,1 : CLS #1 : PRINT #1,CHR#(7) "Doit Jtre remplac\ { 
o,n) " 

1250 EVERY 20,0 GOSUB 1290 

1260 dé=INKEY# : IF d#$="" THEN 1260 

1270 im=REMAIN(O): IF UPPER#(d#)<>"0" THEN 1240 

1280 GOTO 1310 

1290 LOCATE #1,30,1 : IF im=O THEN PRINT#1,"?";:im=1 ELSE PR 
INT#1," ";zim=O 

1300 RETURN 

1310 ef=0 : OPENOUT file#+".dat" : IF ef THEN 1310 

1320 PRINT#9,nombrechamps 

1330 FOR i=0 TO nombrechamps-i 

1340 PRINT #9,m#(i) 

1350 NEXT 

1360 FRINT#9,nombre 

1370 FOR i=i TO nombre 

1580 FOR i1=0 TO nombrechamps-i 
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1390 PRINT#9,d#(i,11) 
1400 NEXT 

1410 NEXT 

1420 CLOSEOUT 

1430 RETURN 

1440 : 

14350 
1460 REM Entr\e du nom de fichier 
1470 








1480 : 

1490 MODE 1 : WINDOW #1,1,40,1,Z : PAPER #1,2 : INK 2,1 : CL 
S#1 : LOCATE #1,7,2 : PRINT #1,"Entrez le nom de fichier:" 
1500 WINDOW #1,1,40,15,16 : CLS #1 : PRINT#1,TABR(10)"N'utili 
sez pas (,.:"CHR#(34)") 

1510 PRINT#1,TAB(8) "Entrez au maximum 8 caractlres 

1520 WINDOW #1,1,40,6,10 : CLS #1 

1530 LOCATE #1,5,3 : INK 3,3 

1540 PRINT #1,"Nom de fichier :"; 

1550 WINDOW #1,21,29,8,8 : PAPER #1,3 : CLS #1 

1560 LINE INPUT #1,"",filet : IF filet-="*ESC#x" THEN RETURN 
1570 IF LEN(file#t)>8 THEN FEN S:LOCATE 8,16:PRINT CHR$#(7) "En 
trez au maximum 8 caractlres":FOR i=1 TO SOO:NEXT: PAPER #1,2 
:GOTO 1500 

1580 c$=",.:"+CHR$ (34) 

1590 FOR i=1 TO LEN(C#H):IF INSTR (filet,MID#(c#,i,1))=0 THEN 
NEXT:GOTO 1610 

1600 LOCATE 10,15 : PEN 3S:PRINT CHR$(7)"N'utilisez pas (,.:" 
CHR# (34) ")":FOR i=1 TO 3SOO:NEXT:FAPER #1,2:GOT0 1500 

1610 RETURN 

1620 
1630 : 

1640 REM ===========2==2===22===2=2=2=2=2=2==2=S2=2===== 

1650 REM Entr\e du fichier 

1660 REM =======22=22 22m 

1670 : 

1680 GOSUB 1490 : IF file$="*ESCx" THEN RETURN ELSE GOSUB 10 
20 : IF found=0 THEN 1680 

1690 ef=0 : OPENIN filet+".dat" : IF ef THEN 1690 

1700 INPUT#9 ,nombrechamps 

1710 ERASE d#:DIM d#(200,nombrechamps-1) 
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1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 


FOR i=0 TO nombrechamps-i 
INPUT#9 ,m# Ci) 

NEXT 

INPUT#9 ,nombre 

FOR i=1 TO nombre 





FOR ii=0 TO nombrechamps-1 
INPUT#9,d#(i,i1) 
NEXT il 
NEXT 
CLOSEIN 
RETURN 
REM ===========2=2S=R==SE=SSSS=S=== 
REM Fin du programme 
REM === -<=2 
iUSER,0 : CALL desactive : MODE 2 : PRINT 


rogramme *%#" : END 


1890 
1900 
1910 
1920 
1950 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
S#1 : 


2070 


REM =======2==2=2=2==22=222=2-2-2==—— 
REM Affiche contenu disquette 
REM ========222222—-—2—mm mme 
MODE 2 : CAT 


“##+ Fin du p 


LOCATE 36,25 : FRINT "££ Frapper une touche :; 


CALL &EBO6 : RETURN 


MODE 1 : WINDOW #1,1,40,1,7 


LOCATE #1,7,2 : FRINT #1,"Cr\er et modifier masque 


PAFER #1,2 


INF: 


2,1 


CL 


LOCATE 1,7 3: IF nombreïG THEN jusque-=nombrechamps-1 ELS 


E jusque=9 


2040 
2050 
2080 
2070 


FOR i=0 TO jusque 


PRINT "Champ "RIGHT#(STRE(i+1),72)"s:"m#(i) 


NEXT 


WINDOW #1,5,25,23,25 : PAFER #1,2Z : PEN #1,1 : 
LOCATE #1,8,7 : PRINT#1,"Ctrl/Enter pour fin 
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CLS#1 


2080 WINDOW #1,10,40,7,7+jusque : PAPER #1,9 3 PEN #1,1 

2090 CLS#1:F0OR 1=0 TO rombrechamps-i:PFRINT #1,M# (CI) 

2100 NEXT:LOCATE #1,1,nombrecharmps+i+{(sombrachamps=jusque+i) 
2iTZ=VPFOS(H#1)-Z:LINE IMEUT #i,"",u# 2: IF at="#ESC*x" THEN RETU 
RN ELSE IF at="" THEN LOCATE #1,1,nombrechamps+i : GOTO 2090 


2110 i1=VPOS(#1)-2: IF i2=8 AND ii=8 THEN ii=9 


2170 m#(ii)=aft : IF il>nombrechamps-1 THEN nombrechamps=ii+i 


2150 GOTO 2090 
2140 3: 
2150 REM ========2==2=2222T 2222 RSSSESTSSS=E=S 
2160 REM Entr\e/modification des donnes 
2170 REM =====2==2=2==2222222ES2SRTEEERESSSSSEEE 
2180 : 
2190 IF nombrechamps=0 THEN RETURN ELSE MODE 2 : WINDOYW #1,1 
,80,1,3 : FAFER #1,1 : PEN #1,0 : CLS #1 
2200 IF stat=0 THEN at="Entr\e et modification de donnes" E 
LSE IF stat=7 THEN at="S\lection de l'enregistrement { suppr 
imer" ELSE IF stat=S THEN at="S\lection des enregistrements 
{ sortir" 
LOCATE #1,40-LENCat)/2,2:PRINT #1,af 
GOSUE 2580 
LOCATE 1,7 : FOR i=0 TO nombrechamps-i 
PRINT m#(i)TAB(longueur-2) "2" 
NEXT 
LOCATE 60,5 : PRINT "Longueur du champ de donn\e="B0-lo 


N 
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2 
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o © 


N 
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o 


ngueur 

2270 FEN #2,0 : PEN #3,1 : PAFER #2,1 : PAPER #=,0 

2280 WINDOW #?2,5,75,22,23 : CLS #2 : IF stat<S THEN PRINT #2 
,TAB(7)"#% Touches Ctrl/Enter=Changer \tat (entr\e/correctio 
n) *#":1F stat=0 THEN a$="## Entrez dans n'importe quel cham 
p ‘fin’ pour fin **x":G0OT0O 2:00 

2290 IF stat{>2 THEN at="##* Remplissez le masque avec le cri 
titre de recherche +*" ELSE at="*x*x Entrez maintenant les corr 
ections *+*" 

2300 PRINT #2,TAB(3SS-LEN(a#) /2)a$ 

2310 WINDOW #1,1,80,25,25 : FAPER #1,1 : PEN #1,0 

2320 CLS#1 : LOCATE #1,5,1 : PRINT #1,"Stock\ :";nombre : LO 
CATE #1,55,1 : PRINT #1,"Etat : "3 = IF stat{1l THEN PRINT#1 


& HR ASE 


s"*# Entr\e *##° ELSE PRINT#1,"#+ Correction *#+#" 

2330 FO=0 

23540 IF stat<>? THEN WINDOW #3,longueur ,79,7,16 : CLSH3 

2350 WHILE FO<nombrechamps : WINDOW#2,1,longueur-3,7+P0,7+po 
: WINDOW #53,1,longueur-5,7+po,7+po : CLS#2 : PRINT #2,m$(po 
} 

2360 WINDOW #4,longueur,79,7+po,7+po : LINE INPUT #4,a$ : at 
=LEFT# (a$,890-1ongueur ) 

2370 IF a$="*ESCx" THEN 2500 ELSE IF LOWER#(at)="fin" THEN R 
ETURN 

2380 daf (po)=a#t 

2390 CLSHZ: PRINTHS ,m$ (po) :po=po+i 

2400 WEND 

2410 IF stat=0 THEN nombre=nombre+i+(nombre=200):FO0R i=0 TO 
nombrechamps-1:d#(nombre,i)-dat(i):NEXT:GOTO 2520 

2420 IF stat=2 THEN 2470 

2450 IF stat=5 THEN RETURN 

2440 GOSUR 700 : REM d\termine cha'ne recherch\e 

2450 LOCATE 25,20 : IF found=0 THEN FRINT CHR#(7)"#%x Cet enr 
egistrement n'existe pas *#" ELSE PRINT SPACE#(40) 

2460 IF found=0 THEN 2520 ELSE FOR i=0 TO nombrechamps-i:L10C 
ATE longueur ,7+i: PRINT dt(found,i):NEXT:1F stat=5 THEN RETUR 
N ELSE stat-=2:6G0T0 2780 

2470 FOR i=Q0 TO nombrechamps-1:1F da$(i)="" THEN 2490 

2480 d#t(found,i)=da#(i) 

2490 NEXT:stat=1:G0TO 2500 

2500 IF stat=5 THEN RETURN ELSE IF st>1i THEN 2280 ELSE stat= 
1-stat:GOTO 2280 

2310 END 

2520 RETURN 


2330 


2540 REM ======22222222me2se2z22-2z22222= 
25350 


2560 REM === een 


2370 : 


REM Ditermine la plus grande cha'ne 





2580 longueur =û 

2590 FOR i=0 TO rnombrechamps-i 

28606 IF LEN(m#(i)) longueur THEN longueur =LEN(m#(i)) 
2610 NEXT 


2620 longueur=]onguaeur+4 
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2670 RETURN 











28640 : 

2650 REM 

2660 REM Supprimer un enregistrement 

2670 REM =====2=2=2=2==222=222222222S22=22RRSmsse2S22e= 

2680 : 

2690 IF nombre=0 THEN RETURN ELSE stat=7 : sti=1 : GOSUR 219 
Q : IF LOWER#(at)="fin" THEN RETURN ELSE sti=0 

2700 LOCATE 1,18 : PRINT "Enregistrement correct (o/n) ":EVE 
RY 30,0 GOSUE 2749 

2710 dé=INFEY# : IF d#$="" THEN 2710 

2729 sn=REMAIN(O):1IF LOWER#(d#)<>;"o" THEN 7699 

2750 sn=found : GOSUR 1110 : RETURN 

2740 i=ARS(i=0):LOCATE 530,18:IF i THEN FRINT"7" ELSE PRINT" 

2750 RETURN 

2760 : 

2770 REM ===-==-==2=2=22222z==22s2s2e22zzee22zse22ne 

2780 REM Trier 

2790 

2800 : 

2810 MODE 2:PRINT"Sur quel champ doit se faire le tri (1-"CT 
R$ (nombrechamps)")3"3; 3: INPUT " ",a 

2820 IF a<1 OR a>nombrechamps THEN 2810 

2850 PRINT : PRINT "Champ "CHR# (34) ;m#t(Ca-1) ;CHR#E(S4)" —-— cor 
rect ? (o/n) 

2840 d#é=INKEY# : IF d#="" THEN 2840 

2850 IF LOWER#(d#)€>"o" THEN 2810 

2860 champ=a-1 : GOTO 840 

2870 i9=(i9=0):LOCATE 5,7:1F 19 THEN FRINT" "CHR#(224) ELSE 

PRINT CHR#(224)" " 

2880 RETURN 

2890 : 

2900 REM ==========22222=2222=222=22222=2=222=22222S 

2910 REM Sortie sur \cran et imprimante 

2920 

2950 : 

2940 MODE ?2:PRINT'"Sortie sur imprimante ou sur \cran ? (I1/E) 


2950 


dé=INKEYS : 


IF d#&="" THEN 2950 


= 1177 = 


2960 IF INSTR('"ei",LOWER#(d#))=0 THEN 2950 

2970 IF LOWER#(d#)="i" THEN ae=8 ELSE ae=0 

2980 sti=i:stat=5:GOSUER 2190 

2990 f=0 

3000 FOR i=0 TO nombrechamps-1 

3010 IF da#(i)<>"" THEN f(f)=is:f=f+1 

5020 NEXT 

3030 longueur=longueur-4:1fF ae=0 THEN MODE 2 

35040 FOR i=1i TO nombre 

3050 FOR i1=0 TO f-1 

3060 PRINTHae,m#(f (i1))SPACE# (longueur -LEN(m#(f(i1))2))": 
“"dt(i,f(i1)) 

3070 NEXT 

Z7080 PRINTHae 

3090 NEXT 

3100 IF ae=0 THEN PRINT "<£ Frapper une touche >>":CALL %BBC 

& 

3110 RETURN 

3120 : 

3130 

3140 REM Routine d'erreur 

3150 REM =======2=---==2---222202=2222s=22zces2s 

3160 : 

3170 IF ERR<>18 THEN RESUME NEXT 

3180 ef=0 : CALL msg,@dst 

3190 nf=0:1F RIGHT#(ds#,9)="not found" THEN nf=1:RESUME NEXT 

3200 WINDOW #6,1,40,24,2S5:PAPER #6,1:PEN #6,0:CLS #6 

3210 PRINT #6,CHR$ (7) "#x#*x Disque:";ds$;" en"; ERL:PRINT #6,"< 





ENTER>=menu principal,sinon recommence 
3220 d#=INKEY# : IF d$="" THEN 3220 

3250 ef=1 : IF ASC(d#)=13 THEN RESUME 510 
3240 RESUME NEXT 
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5,5 DISKMON - UN MONITEUR DISQUETTE POUR LE CPC 


Avez-vous essayé le programme de lecture et d'affichage de secteurs 
isolés de la disquette? Vous savez alors combien la sortie sur écran 
était lente avec ce programme. Dans le moniteur de disque suivant qui 
repose à l'origine sur le programme que nous venons d'indiquer, nous 
avons réalisé la sortie des informations de secteur dans un petit 
programme machine pour obtenir une vitesse de sortie acceptable. Nous 
avons également intégré d'autres instructions qui sont certainement très 
utiles dans certaines circonstances. Voici les différentes instructions 
dont vous disposez: 


R-lire des secteurs 

M-modifier le contenu d’un secteur 

W-écrire des secteurs 

C-afficher le catalogue 

B-calculer les numéros de piste et de secteur à partir du numéro de 
bloc 


La lecture des secteurs a été organisée de façon très pratique. N'importe 
quel secteur de la disquette peut être atteint avec les quatre touches 
curseur, Les touches ‘curseur haut’ et ‘curseur bas’ permettent de 
sélectionner respectivement la prochaine piste plus élevée ou moins 
élevée, les touches ‘curseur gauche’ et ‘curseur droite’ sélectionnent le 
secteur qui se trouve avant ou après le secteur actuel, 

Un ‘’wrap around’ est intégré à ces fonctions. C'est-à-dire que si vous 
avez lu le secteur 9 d'une piste et que vous appuyez ensuite la touche 
‘curseur droite’, c'est le secteur 1 de la prochaine piste qui est 
affiché. Notez la particularité suivante: lorsque vous tenez enfoncée les 
touches curseur, ce n'est pas le contenu du secteur actuellement Iu qui 
est affiché. La vitesse d'accès est ainsi nettement accélérée, 
Malheureusement il en résulte également que ce n'est pas toujours le 
dernier secteur lu qui est affiché, de sorte que nous vous conseillons de 
le lire à nouveau avec ’R(ENTER)'. 

Vous pouvez naturellement également sélectionner directement un secteur 
précis. L'instruction ’R' sert aussi à cela. Mais au lieu d'ENTER entrez 
alors un numéro de lecteur, dans la forme O pour lecteur À ou 1 pour 
lecteur B, le programme vous demandera alors les valeurs de piste et 
secteur voulues, Le secteur sera alors lu et la première moitié du 
contenu de ce secteur sera affichée. 


11 n'est malheureusement pas possible de faire entrer dans un écran la 
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totalité des 512 octets d'un secteur en dump ASCII et HEXA, C'est pour 
cette raison qu’on peut basculer entre les deux pages écran correspondant 
à un secteur avec les touches ‘Shift curseur gauche’ et ‘Shift curseur 
droite’. 


L'instruction ‘M’ permet de modifier les informations lues, Cette 
instruction vous demande l'adresse de buffer à modifier. Si vous répondez 
à cette question avec ENTER, c’est le début du buffer qui sera 
sélectionné comme adresse. 

L'adresse est alors affichée en même temps que le contenu. Le programme 
attend ensuite la nouvelle valeur de l'adresse de buffer. Vous pouvez 
entrer les nombres hexa 00 à FF. Ces nombres doivent être entrés sans ’28’ 
et validés avec ENTER. La prochaine adresse de buffer est alors affichée 
avec le contenu correspondant, Si vous ne voulez toutefois pas modifier 
le contenu de l'adresse affichée, vous pouvez passer à l'adresse suivante 
en appuyant sur la touche ENTER. Vous pouvez sortir du mode d'entrée avec 
!XCENTER)’. 


Vous pouvez ensuite réécrire sur la disquette un secteur ainsi modifié 
avec l'instruction ‘’W’. En entrant ’W(ENTER)’, le secteur est écrit dans 
le secteur d'où il avait été lu à l'origine. Vous pouvez cependant 
choisir également un autre secteur en indiquant la piste et le secteur 
avec l'instruction ‘M’, 


L'instruction ‘’B’ constitue en quelque sorte une aide à la lecture de 
fichiers, Comme vous l'avez vu dans les chapitres précédents, les numéros 
des blocs occupés par chaque fichier sont sauvegardés dans le catalogue. 
11 n’est pas difficile de convertir ces numéros de bloc en numéros de 
piste et de secteur, mais c'est tout de même assez pénible. Ce travail 
nous est épargné par l'instruction ‘B’. Indiquez à cet effet le numéro de 
bloc trouvé dans le catalogue et le CPC calculera automatiquement pour 
vous les valeurs correspondantes et les affichera dans la ligne d'en- 
tête, Avec ’R(ENTER)' vous pouvez alors lire et faire afficher le premier 
secteur ainsi calculé du bloc. Vous obtenez le second secteur en appuyant 
sur la touche ‘curseur droite’. 


L'instruction ‘C’ affiche le catalogue normal de la disquette. Cette 
fonction est très utile car vous n'êtes pas obligé de quitter le 
programme pour examiner lé contenu de la disquette. 


Comme le programme est largement écrit en Basic, il peut aisément être 
étendu avec vos propres routines et extensions. Une extension possible 
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consisterait par exemple à afficher le format de la disquette placée dans 
le lecteur de disquette et à reconnaître un changement de disquette, Si 
vous avez en effet lu une disquette en format de données, vous devez, 
dans la version actuelle du programme, envoyer d'abord l'instruction ‘C', 
en cas de changement de format, pour qu'AMSDOS reconnaisse le changement 
de format et modifie le DPB en fonction de cela. Vous pourriez résoudre 
ce problème en déconnectant les messages d'erreur et en examinant d'après 
les flags si le secteur a été lu avec succès. Si ce n'est pas le cas, 
vous pourriez alors sauter à la routine AMSDOS pour déterminer le format 
(8C56C) et lire ensuite le secteur une nouvelle fois. 

Un autre point faible que vous pourriez éventuellement améliorer est 
constitué par l'instruction ‘B’, Elle ne fonctionne correctement qu'avec 
les formats CP/M standard et Vendor. Les résultats calculés pour les 
autres formats sont faux. 

Une autre amélioration possible consisterait à sortir le contenu du 
secteur sur imprimante. La routine hexdump de l'exemple de lecture d'un 
secteur isolé pourrait rendre de grands services à cet égard. 


Mais malheureusement, avant que vous ne pensiez à modifier notre 
programme, il vous faut encore le taper. Mais cela ne devrait pas poser 


de problème, notamment grâce aux valeurs de contrôle pour les lignes de 
Datas. 
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1000 ‘ +###% MONITEUR DISCQUETTE LES) 

1010 ‘ xxx RER 17/4/1985 EEE 

1020 ‘ 

1030 DEFINT A-L,N-Z 

1040 MEMORY &AO0O-1 

1050 MODE 2? 

1060 LOCATE 10,10:PRINT"Veuillez patienter ..." 

1070 GOSUR 9000: ‘definir les fenetres et FOFEr 

1071 les routines machine en memoire 

1080 CLS#1 

1090 inst=" " 

1100 buffer-&A2z 

1110 cmd#="CRYMB'"+CHRE (&FO) +CHR# (UF 1) +CHRE (UF 2) +CHR$ (GFT) 
1120 cmd$=cmd#t+CHR# (&F6) +CHR# (&F7) 

1150 FOR i=1 TO LEN(cmd#):cmd1i#=cmd1i#+MID#(cmd#,i,1)+",":NEX 
t 

1140 cmdi$=LEFT$(cmdit,LEN(cemdi#)-1) 

1150 sector=iitrack=0:drive=0:instruction=®B4: catflag=0 
1160 

1170 

2000 ‘ ##### PROGRAMME FRINCIPAL LEE) 

2010 

2020 POKE &A108,buffer:POKE &A10A,buffer 

2030 LOCATE #1,1,1:CLS 

2040 GOSUB 6000: "afficher une page 

2050 PFRINT"INSTRUCTION "cmdiæ" >" 

2060 ins#$=UPPER$(INKEY#):1F ins#$="" THEN 2060 ELSE CLS 
2070 ON INSTR(cmd#,ins#+) GOTO 3100,3150,2:200,3250,33500,3500, 
3350,3600,3650,3400,3450 

2080 GOTO 2050 

2070 

2100 

3000 ‘ +#H#x TABLE D'INSTRUCTIONS LELSS) 

5010 ” 

3100 ‘###% INSTRUCTION D 

3110 GOSUB 4000:GOTD 2050 

3120 

3150 ‘##*x INSTRUCTION R 

3160 GOSUB S5000:GO0OTO 2020 
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3170 
3200 
3210 
3220 
3250 
3260 
3270 
3300 
3310 
3320 
3400 
3410 
3420 
3450 
3460 
3470 
3500 
3510 


°### INSTRUCTION W 
GOSUB 5100:G0T0 2020 
"##æ# INSTRUCTION M 
GOSUB 7000:G0T0 20350 


‘##% INSTRUCTION B 
GOSUB 8000:GOT0O 2050 


‘### AFFICHER LA PREMIERE PAGE 

POKE 8&A108,BUFFER:POKE SA10A,BUFFER:GOTO 2020 
‘### AFFICHER LA SECONDE PAGE 

POKE &A108,ERUFFER+1:FOKE SALOA, RUFFER+1:GOTO 2050 


#3 TRACK+1 
TRACK=- (TRACK< 29) +TRACK + ((TRACK=539) #59) : GOSUE S500:GOTO 


2020 


3520 
3550 
35860 
020 

3570 
3600 
3610 


"### TRACKH-1 
TRACK= (TRACKH 50) +TRACK+ (— (TRACH=0) #39) : GOSUB SS500:G0TO 2 


°##% SECTOR-1 
SECTOR= (SECTOR :1) +SECTOR+(-(SECTOR=1) *# (PEEK (&ABAO+ (DRIV 


E*64))-1)) 


3620 
Z6:0 
5650 
3660 


IF SECTOR=9 THEN GOTO 3550 ELSE GOSUB 5500:GO0OT0O 2020 


"### SECTOR+1 
SECTOR=- (SECTOR<9) +SECTOR+((SECTOR=9) # (PEEK (&ASAO+ (DRIV 


E#x64))-1)) 


5670 
3680 
4000 
4010 
1 

4070 
4070 
5000 


IF SECTOR=1 THEN GOTO 2500 ELSE GOSUB 5S500:G0TO 2020 


‘### AFFICHER LE DIRECTORY 
WINDOW SWAF O,1:CLS:FRINT: DIR: WINDOW SWAF 1,0: CATFLAG= 


RETURN 


"### LIRE SECTEUR 
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S010 PRINT" LIRE SECTEUR" :PRINT 

5020 GOSUB S5800:GOT0 5500 

300 

5100 ‘### ECRIRE SECTEUR 

9110 INSTRUCTION-&85: PRINT" ECRIRE SECTEUR‘":PRINT 
5120 GOSUB 5800 

5130 ‘ 

3300 ‘### LIRE/ECRIRE SECTEUR 

3510 POKE &A100, INSTRUCTION 

99320 POKE &A104,DRIVE 

595350 POKE &A105,TRACK 

5540 POFE &A106,SECTOR-1+PEEK (&A99F+DRIVE*&40) 
9950 CALL &AOAO: INSTRUCTION=884: RETURN 


9360 ‘ 
5800 ‘### ALLER CHERCHER DRIVE, TRACK SECTEUR 
9810 INPUT" DRIVE (0/1) OÙ ENTER"; DRIVE#:1F DRIVE+="" 


THEN RETURN 
9820 DRIVE=VAL(DRIVES) 


9830 INPUT" TRACK (0-39) “3: TRACK 
5840 INPUT" SECTEUR (1-9) “3 SECTOR 
9850 RETURN 

9860 ‘ 


6000 ‘#44 AFFICHER 
6010 IF.CATFLAG=1 THEN CATFLAG=0:CLS#1 
6020 WINDOW SWAF 0,1 


6050 PRINT USING " ï DRIVE ### ; TRACK #4# ' S 
ECTOR ###  :"; DRIVE, TRACK , SECTOR 
6040 PRINT 


6050 IF INKEY#:>:"" GOTO 6070 

6060 IF INSTR("BW",INS#)=0 THEN CALL %BEAB1:CALL SAOOO:CALL & 
EBS4 

6070 WINDOW SWAF 1,0 

6080 RETURN 


8090 

7000 ‘*x#* MODIFY 

7010 PRINT" MODIFIER BUFFER" 

7920 INPFUT"'ADRESSE BUFFER ‘“; EUADR# 

7030 IF BUADR#="" THEN BUADR=O ELSE BUADR=VAL ("&"+BUADR#) 
7040 MADR=BUADR+ (EUFFER#256) 

7050 PRINT HEX#(BUADR,4)5;"  ";HEX#(PEEK CMADR) ,2)5"  "s 
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7060 INPUT NEWEYT#: NEWBYT#=UFFER# (NEWEYT#) 
7070 IF NEWBYT+="X" THEN RETURN 

7080 IF NEWRYT+="" THEN GOTO 7110 

7090 NEWEYT=VAL ("S"+NEWBYTE) : NEWBVYT#="" 
7100 FOFE MADR,NEWBYT 

7110 BUADR=BUADR+1:GOTO 7040 


7120 

8000 ‘’### CONVERTIR NUMERO BLOC 

8010 PRINT" CONVERTIR NUMERO ELOC EN TRACK ET SECTOR" 
8020 INPUT" NUMERO BLOC (EN HEXA) "3 BLOCF# 


8030 BLOCK+="8"+BLOCH#: A=VAL (BLOCK#) 

8040 SECTONT-A#2+18 

8050 TRACH= (A#2+18) /9 

8060 SECTOR=(A*2+18) MOD 9 +1 

8070 RETURN 

8080 

9000 ‘’##* DEFINIR FENETRES 

9010 WINDOW #0,1,80,20,75 

9020 WINDOW #1,1,80,1,19 

9050 ‘ 

9100 ‘### DATAS POUR HEXDUMP/SECTOR 1-0 

9110 FOR I=%A000 TO KAOBC 

9120 READ BYTE:POKE I,BYTE:S=5+BYTE:NEXT 

9130 DATA &C3,%2D,UAO,U7C, SCD, 08,400 ,87D,UFS RAF, &1E RAF, 1 
F,&CD,&11,%A0 

9140 DATA %F1,%E6, OF , C6, RO ,UFE,BTA,UT8,LO?,UC6,RO7 , LC, US 
A,RBB,USE ,&OD 

9150 DATA &CD,%SA,%BB,USE, OA, LOS, SA, SBB,&SE, 420,803, RIA, LE 
B,U2A,%07,%A1 

9160 DATA LED,U5B,809,UA1,UFD,u21,%01,800,%06,%10,4ES,UCS,%E 
D,%4B,&OB,%A1 

9170 DATA %09,%CD,&03, AO, C1 ,%E1,%CD,478,RAO , BCD, 428, 8AO,U7 
E,&CD,&08, &AO 

9180 DATA &FD,&2B,%CD,%28,%AO,%A7,BED,092,819,428, 820, U22,8&1 
O,REE, &O1 ,&FO 

9190 DATA &FF,%09,%06,U10,8CD, 478, UAO,U7E ,LE6,U7F, FE U20, US 
8,802,&18,8&02 

9200 DATA USE, U2E, XCD, USA, UEB,U23,8%10,REF , BCD, GIE, RAO,LES LE 
7,8ED,%S2,%E1 

9210 DATA LCB,8FD,UES,%C1,%O0D,418,8B1,UO0S,USE ,410,%90 ,&4F,80 
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6,400 ,%ED,%47 

9220 DATA 223,%41,%18,8D0,84E ,M4R,2UTA,L4C, 844,809 ,%41,%2C,%? 
2,20 ,422,%0D 

220 DATA &21,%00,%A1,&CD,8D4,%BC, 22,801 , A1, 479,822, LOS, LA 
1,421,804,8A1 

9240 DATA %SE,423,%56, 423, %4E 421,400 ,LA2,2DF , LOL , LA ,UC9 , &2 
D 

9250 IF 5<>20027 THEN PRINT"ERROR IN CHECKSUM":END 

9500 5-0 

9310 FOR 1=%A100 TO %A10C 

9320 READ BYTE:FPOKE I,BYTE: S=S+BYTE: NEXT 

9330 DATA %24,%00,%00,2%00,%00,%00 ,2%01 ,&00,%A2,%FF,&A2,800, US 


9540 IF S£3806 THEN PRINT"'ERROR IN CHECFESUM" : END 
9350 RETURN 
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5.6 LA GESTION DE DISQUETTE 


La gestion de disquette sert à créer et à traiter des disquettes de 
travail. Les différentes fonctions vous sont proposées dans les points du 
menu de sorte que vous n'êtes plus par exemple obligé de charger CP/M 
pour formater une disquette. Après que vous ayez tapé le programme de 
gestion de disquette, sauvegardez-le d'abord sur disquette, Après que 
vous ayez lancé le programme, vous obtenez le menu suivant à l'écran: 


1) Changer nom de fichier 

2) Suppression de fichier 

3) Formatage d'une disquette 

4) Affichage contenu disquette 

5) Copie de fichiers NON-PROGRAMMES 
6) APPEND - Fusion de deux fichiers 
7) Afficher contenu d’un fichier 


9) Fin du programme 


Pour sélectionner une point du menu, vous n'avez qu’à actionner la 
touche correspondante du clavier (sans ENTER), Vous arrivez 
instantanément dans la routine correspondante. 

Pour donner plus de clarté à nos explications, nous allons traiter tous 
les points du menu les uns après les autres. 


1) Changer nom de fichier 


Ce point du menu vous permet de changer le nom d'un fichier. On vous 
demande le nom du fichier dont vous voulez changer le nom. Entrez le nom 
correspondant et actionnez la touche ENTER. 

SI VOUS VOULEZ SORTIR D'UN POINT DU MENU, ACTIONNEZ LORS DE L'ENTREE D'UN 
CHAMP QUELCONQUE LA TOUCHE ENTER, SANS AUTRES INDICATIONS. 

Après que vous ayez entré le nom d’un fichier, on vous demande le nouveau 
nom. Si vous voulez par exemple changer le nom d’un fichier de “A” en 
“B", entrez “A” comme ancien nom et “B” comme nouveau nom. 

On vous demande de placer dans le lecteur de disquette la disquette sur 
laquelle se trouve le fichier dont vous voulez changer le nom. Après que 
vous ayez actionné une touche, le nom fichier correspondant sur la 
disquette est changé. 
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2) Suppression de fichier 


Ce point du menu est le plus pratique du programme de gestion de 
disquette. I1 sert à “nettoyer” les disquettes. Vous serez surpris par la 
quantité de programmes et de données qui peuvent S'accumuler assez vite 
sur une disquette. Cette routine vous permet d'éliminer facilement de vos 
disquettes les programmes et fichiers de données devenus périmés et 
inutiles, Après que le catalogue de la disquette ait été affiché à 
l'écran, vous pouvez “aller“ sur les différents noms de fichiers. En 
actionnant la touche COPY, vous pouvez marquer un fichier comme fichier à 
supprimer, le champ correspondant clignote alors entre rouge et rose, ou 
vous pouvez supprimer à nouveau ce marquage. Lorsque vous avez marqué 
tous les fichiers que vous voulez supprimer, actionnez la touche ENTER. 
On vous demande alors encore si vous avez vraiment marqué tous les 
fichiers et si vous voulez vraiment supprimer ces fichiers. Après que 
vous ayez répondu positivement à ces questions, les fichiers marqués sur 
la disquette sont supprimés. 

Cette routine s'est avérée très utile pour nous, pour “nettoyer” les 
disquettes, particulièrement parce qu’elle est moins sujette à erreur que 
l'instruction ERA, a$ avec laquelle on a vite fait de supprimer par 
mégarde un fichier. 


3) Formatage d'une disquette 


Ce point du menu est particulièrement intéressant car {il vous évite 
d'avoir à chargér CP/M pour formater une disquette. Cette routine de 
formatage est plus rapide que la routine FORMAT sous CP/M; elle ne 
contrôle toutefois pas si les pistes ont été “correctement” formatées. 
Nous n'avons cependant Jamais eu de problème avec des disquettes que nous 
avions formatées avec cette routine. 

Vous pouvez formater en format Vendor et en format Data only; le 
formatage IBM n’a pas été prévu. 

Le format Vendor signifie que la disquette est formatée comme disquette 
système sur laquelle ne figure PAS CP/M et qu’on se contente de réserver 
les deux pistes supérieures. I1 vous faudrait alors copier CP/M sur la 
disquette sous CP/M avec l'instruction SYSGEN. 

Vous avez en règle générale intérêt à formater votre disquette en format 
Data only; vous pouvez ainsi utiliser la totalité de la capacité de la 
disquette pour y sauvegarder des programmes Basic et des données. 

Après que vous ayez sélectionné le format, on vous demande de placer dans 
le lecteur la disquette à formater et d’actionner une touche. 
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4) Affichage contenu disquette 


Le contenu de la disquette est affiché à l'écran, Vous pouvez utiliser 
par exemple ce point du menu pour vérifier si un fichier dont vous voulez 
changer Je nom où que vous voulez supprimer se trouve bien sur la 
disquette, 


5) Copie de fichiers NON-PROGRAMMES 


Vous ne pouvez pas copier des fichiers programmes avec cette routine mais 
elle vous permet par contre de copier des fichiers de données copiés avec 
cette routine. Vous pouvez choisir si le fichier source doit être copié 
sur la même disquette où sur une autre, Si vous voulez copier le fichier 
sur la même disquette, vous n'êtes soumis à aucune contrainte de place 
mémoire, contrairement à ce qui se passe si vous voulez copier le fichier 
sur une autre disquette: comme dans ce dernier cas, en effet, le contenu 
du fichier doit être entrestocké dans la mémoire centrale, la place 
mémoire disponible constitue une certaine limite; vous pouvez copier au 
maximum 250 enregistrements. Si le fichier est trop long pour pouvoir 
etre copié, cela vous sera indiqué par un message à l'écran. 


6) APPEND - Fusion de deux fichiers 


Ce point du menu vous permet de faire un seul fichier à partir de deux 
fichiers. On vous demande les noms des deux fichiers que vous voulez 
relier entre eux: le premier fichier constituera également plus tard la 
première partie du nouveau fichier et le second fichier sera ajouté à sa 
suite, Le fichier objet est créé sur la même disquette sur laquelle se 
trouvent également les deux fichiers sources. 


7) Afficher contenu d'un fichier 


Ce point du menu a le même effet que l'instruction TYPE sous CP/M: le 
contenu d'un fichier ASCII est affiché sur l'écran. En appuyant sur une 
touche quelconque, vous pouvez arrêter l'affichage ou le faire 
redémarrer. 

L'une ou l'autre de ces routines vous rendra certainement de bons 
services dans votre travail quotidien avec le lecteur de disquette. 
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10 
20 
50 
40 


FEES ME DE ED DE DE DE DE HE EEE ÉD DE ME DE DE DE DE EH DEDE ED DEDE DE DE DEEE DE DE DE EE JE 


"### Gestion de disquette ---- JS/RB 1.5.8S5 ##+# 
PDO DE DENON DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE JE 


S0 OPFENOUT “dummy" : MEMORY HIMEM-1 : CLOSEOUT 


DATA %e,00,232,82f,%80,4oa,42f,%20,857,%Ta, 420,880 ,%5f, 


60 


LEA 


,431,%80 


70 DATA %Af,U21,%25,%80,%df,U22,2%80,%7a,42f,%90,Ufe,u27,%c8, 


%Sc 
80 

#18 
90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
N 3 
210 
220 
25 

te" 
240 
2530 
260 
270 
280 


UIT ,L2 


DATA 2B0,%21,235,%00,%06,209,877, 025,025, U2S 02, 


.2dé,827 
DATA %O00,841,%527,%cé,%07 
FOR i=%89000 TO 29954 
READ d 
FOFE i,d 
s=s+d 
NEXT 
IF s<>4258 THEN PRINT"##*# Erreur en Datas **x" 
MEMORY &7FFF 


CLEAR : DEFINT b-z 


MODE 1 : INK O,11 : INK 1,16,6 : INK 2,0 : INK =,24 


: PAPER 2 : CLS 
BORDER © 
CLS : ORIGIN 0,0,0,640,340,400 : CLG 3 


«10,419, 


PE 


PAPER 3 : FEN 2 : LOCATE 14,2 : FRINT"Gestion de disquet 


: PAPER 2 : FEN 3 

LOCATE 1,7 

PRINT"1) Changer nom de fichier" 

PRINT"2) Suppression de fichier" 

PRINT"5) Formatage d'une disquette" 
PRINT"4) Affichage contenu disquette" 
PRINT"5) Copie de fichiers NON-PROGRAMMES" 
PRINT"6) APFEND - Fusion de deux fichiers" 
PRINT"7) Afficher contenu d'un fichier" 
PRINT 3: PRINT"9) Fin du programme" 

LOCATE 1,20 : PEN 1 : PRINT "Votre choix:" 
a#$=INEEY$ : IF a$="" THEN 340 
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250 we=VAL(at) : IF weïi OR (we7 AND we‘>97) THEN 340 

60 FEN = : ON we GOTO 1200,550,3580,1120,1340,1700,1900,1900 
32100 

370 
580 





590 Formatage d'une disquette 
400 ‘===> 222mmmmmmm 
419 
420 CLS : PRINT"1) Format Vendor" : PRINT : PRINT"'ou" : PRIN 
T =: PRINT"2) Format Data only" 

450 a$f=INKEYE : IF at<"1" OR a#>"2" THEN 450 

440 IF at="1" THEN f#="Vendor" : y=&41 ELSE f#+="Data Only" 
y=&Ci 

450 x=88055 

460 FOR i=1i TO 9 

470 POFHE x,0 : POKE x+1,0 : POKE x+2,y : POKE x+ 
489 H=Xx+4 

490  y=y+2 : IF (y AND &F) = %B THEN y=y-9 

500 NEXT 

GS10 PRINT : PRINT"Veuillez inserer la diquette" : PRINT'et f 


Le] 
FH 


rapper une touche..." 
S2O IF INKEY+="" THEN 520 
9530 CALL 88000 : GOTO 190 





« 
aa] 
© 


999 DIM at(65) ,era(é64) :CLS 

600 LOCATE 4,11 : FRINT'"'Ue lis le Directory ..." 

610 FRINT : FRINT" un moment, je vous prie 

620 lin#=STRING#(40,154) 

620 FOR i=0 TO 83 

640 a+t(i)=STRING#(11,32) 

630 NEXT 

660 a=PEEK(SBESA) : PFOKE &BBSA,%C9 : CAT : POKHE &EBS5A,a 
670 anz=FEEK($A912) : a=FEEK(#A79C)#256 + FEEK(&A798R) +1 
880 CLS 

690 FOR i=0 TO anz 

790 FOFE &@éaf(i)+1,a-(INT(a/256) +256) 
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POKE @a#(i)+Z2,INT(a/256) : a=ati4a 
NEXT 
FOR i=0 TO anz 
IF ASC(LEFT#(at(i),1)) = Q THEN a=i : i=anz : GOTO 770 
a#(i)=LEFT#H(a#(i),8) + "." + RIGHT#(at(i),3) 
FRINT a#(i), 
NEXT : anz=a 
LOCATE 1,22 : PRINT linf 
txt+="Supprimer sur ce disque? (O/N)" : GOSUE 10970 
GOSUE 1100 : IF LOWER#(a#t)="o" THEN 840 
txt+="ENTER = un autre disque, X = fin" : GOSUEH 1290 
GOSUER 1100 : IF af=CHRÈ(1Z) THEN ERASE af,era : GOTO 
IF LOWER#(a#t)="x" THEN 190 ELSE 820 
txt#="Touche ‘"COPY' marque a supprimer" : GOSUE 1090 
x=O : xc=il : yc=1 : GOTO 950 
x=temp : GOSUE 1100 : IF at=CHR#(17) THEN 1000 
IF ASC(at)=2FO0 THEN x=x-3 : IF x<Q0 THEN 860 ELSE 950 
IF ASC(at)=SF1 THEN x=x+5 2 IF xranz-1 THEN 880 ELSE 9E0 
IF ASC(a#)=8F2 THEN x=x-—1 : IF #40 THEN 860 ELSE 950 
IF ASC(a#t)=8FT THEN x=x+1 3 IF xanz-1 THEN 860 ELSE 950 
IF ASC(a#)£>vE0O THEN 860 
era(x) = era(x) XOR 1 ‘Inverser le champ 
LOCATE xc,yc : FAFER era(x) 
PRINT a$(x); : FAPER 2 : GOTO 860 
yco = H\3+1 3 co = (x- ((yco-1)#3))#13+1 
LOCATE xc,yc =: PAPER (era(temp)=0)*x-?2+era(temp) 
PRINT at(temp):;: : FAPER 2 
LOCATE xco,yco : PAPER eralx) 3: FRINT af(x)3 : PAPER 2 
XC=XxCO 2: yc=yco : temp=x : GOTO 840 
LOCATE xc,yc : PAPER 2+(er'a(x)#50) : PRINT aft(x)3; : PAP 





: txtt="Tous les fichiers sont marques? (O/N)" : GOSUB 
GOSUR 1100 : IF LOWER#(at)< THEN 840 
taxtt="Vraiment supprimer (O/N)" : GOSUR 1090 

GOSUB 1100 : IF LOWER#(at)<;"o" THEN 840 

txt#="Je supprime les fichiers !" : GOSUER 1090 

FOR i=0 TO anz 

IF era(i) THEN :'ERA,G@a#(i) 

NEXT 

GOTO 190 
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1090 


LOCATE 4,24 : PRINT CHR#(20);txt#$ : RETURN 








1100 a$=INKEY# : IF a+$="" THEN 1100 ELSE RETURN 

1110 

1120 ‘=====22222-22zmmssssmmesscss— 

1130 Affiche contenu disquette 

1140 ‘========2=======2=2=====2=SSS==2S= 

1150 : 

1160 CLS : CAT 

1170 PRINT : PRINT"Frapper une touche ..." 

1180 IF INFHEY+="" THEN 1180 ELSE 190 

1190 : 

1200 ‘================================ 

1210 Changement de nom de fichier 

1220 

1250 : 

1240 CLS 

1250 INPUT "Ancien nom du fichier : ",falt# : IF falt+="" TH 
EN 190 

1260 INPUT "Nouveau nom du fichier : ",Neuf : IF neuf$="" THE 
N 190 

1270 PRINT : PRINT"Veuillez inserer la disquette" 

1280 PRINT : PRINT'"sur laquelle se trouve le fichier" 

1290 PRINT : PRINT'"et actionnez une touche" 

1300 IF INKEY#$="" THEN 1500 

1310 !REN,@neut$,@falt# 

1320 GOTO 190 

1340 ‘=========2ss2ss2SSESSSSSSSSSESSES 

1:50 Copie de fichiers pas FRG 

1360 ‘==================s=====s=====S== 

1570 : 

1380 CLS : INPUT "Nom du fichier source : ",quellt : IF quel 
14="" THEN 190 

1390 INPUT "Nom du fichier objet : ",ziel# : IF ziel#="" TH 
EN 190 

1400 INPUT "Copier sur une autre disquette (O/N) : ",jn# 
1410 IF LOWER#(jn$#)="n" THEN 1670 

1420 DEFSTR a : DIM a(250) 

1450 PRINT : PRINT'"'Veuillez inserer la disquette source" 
1440 PRINT'"'et actionnez une touche" 
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1450 
1460 
1470 
1480 
1490 


IF INFEY#="" THEN 1450 
OPFENIN quell# 
WHILE NOT EOF 
LINE INPUT #9,a(xc) 
xo=xc+i : IF xc>250 OR FRE(0)<2000 THEN PRINT CHR#(7) 


“Le fichier est trop grand" : FOR i=1 TO 1000:NEXT:CLOSEIN:R 
UN 190 


1500 
Q 


Fe ED mn 
Un + CO 
JO = N mn 
Le] o 


al 


4 


le] 


1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1670 
1640 
1650 
1660 
1670 
1689 
1690 
1700 
1710 
1720 
1750 
1740 


jJ=mm 


17350 


WEND 
CLOSEIN 
PRINT : PRINT CHR#(7)"Veuillez inserer la disquette obj 


PRINT"'et actionnez une touche" 
IF INFEY+#="" THEN 1540 
PRINT : PRINT'"'Je copie"xc"enregistrements." 
OFENOUT ziel# 
FOR i-0 TO xc 
PRINT #9,ati)s : IF LEN(a(i))229S THEN PRINT #9 
NEXT 
CLOSEOUT 
RUN 190 
OPENIN quell+t : OPENOUT ziel# 
WHILE NOT EOF 
LINE INPUT #9,af 
PRINT #9,a* 
WEND 
CLOSEIN : CLOSEOUT 
GOTO 190 








CLS : INPUT "Nom du premier fichier : ",f#(0) = IF f#(0 
THEN 190 
INFEUT "Nom du second fichier: ",f#01) 3 IF f#(1)="" THE 


N 190 


1760 

190 
1770 
1780 


INPUT "Nom du fichier objet 5 ",f3#t 3 IF f2#="" THEN 


PRINT : PRINT"'oE" 
OFENOUT f5# 
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1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1950 
1940 
1950 
1980 
1970 
1780 
1990 
2000 
2010 
2020 
20:50 
2040 
2050 
2060 
2070 
2080 
2090 


FOR i=0 TO ! 
OFENIN f#(i) 
WHILE NOT EOF 
LINE INPUT #9,at 
PRINT #9,a$ 
WEND 
CLOSE IN 
NEXT 
CLOSEOUT 
GOTO 190 


ON ERROR GOTO 2090 


CLS : INPUT "Nom du fichier 3 ",f# : IF f#="" 
MODE 2 : PEN 1 =: INE 1,1 : FRINT"Contenu du fichier "f# 


FRINT STRING# (80,"—") 
OPENIN f# 
WHILE NOT EOF 

LINE INPUT #9,at 





PRINT at 
IF INKEY#="" THEN 2040 
IF INFEY#="" THEN 20350 
WEND 
CLOSEIN 
FRINT : PRINT"Frapper une touche" 
IF INKHEY#="" THEN 2070 
GOTO 199 


PRINT"'File Type Error - pas fichier ASCII 


2060 


z100 


CLS : PEN 1 : FRINT'Fin du programme" 
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THEN 190 


RESUME 


VI. Différences entre les divers ordinateurs CPC 


La société Amstrad qui travaille en collaboration avec Locomotive 
Software peut se vanter d’avoir apporté ces derniers temps une 
grande animation dans le marché de la micro. Elle a en effet tout 
de même réussi, en un peu moins d’un an, à mettre 3 (!) ordinateurs 
sur le marché. Ces ordinateurs étaient ou sont censés être 
compatibles mais il existe entre eux quelques différences dûes à 
certaines modifications importantes. 


Le premier ordinateur de cette série a été l’Amstrad CPC 464. Cet 
ordinateur a un lecteur de cassette intégré et il a été et est 
encore très apprécié, grâce à son Basic rapide et puissant ainsi 
que grâce à son prix peu élevé. Peu de temps après, la société 
AMSTRAD annonça une nouvelle machine: le CPC 664. 


La différence principale avec le CPC 464 devait être constituée par 
le lecteur de disquette intégré. Les deux machines ont une mémoire 
RAM de 64 K octets, dont une part importante est cependant occupée 
par l’écran (16 K) et les variables système. L'utilisateur dispose 
librement en Basic de 42249 octets. Le CPC 664 a un Basic 
légèrement modifié (V 1.1) qui corrige quelques erreurs du Basic du 
CPC 464 et qui dispose de quelques nouvelles instructions. Pour les 
deux ordinateurs, CPC 464 et CPC 664, CP/M 222 est nécessaire. CP/M 
2.2 est la version courante de CP/M pour les ordinateurs de 64 K 
octets. 


Mais il n’y a pas que la vie interne de la machine qui se soit 
modifiée, l'apparence extérieure a également subi une 
transformation: le CPC 664 est un peu plus plat et il dispose d’un 
autre clavier avec un bloc curseur surélevé. Le CPC est devenu plus 
professionnel. Les maisons de logiciel ont cependant quelques 
problèmes avec les deux "frères" car la compatibilité annoncée 
n’est pas réalisée. Cela va d’ailleurs de soi: lorsqu'on élimine 
des erreurs du Basic et qu’on ajoute des instructions, les deux 
ordinateurs ne peuvent bien sûr plus être compatibles. 


Mais les programmeurs en langage machine sont encore bien plus 
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durement touchés car c’est ici surtout que des modifications ont 
été apportées. Mais heureusement: il y a CP/M. Ici rien n’a changé 
pour l'utilisateur. Vous voyez tout l’intérêt qu’il y a à disposer 
d’un standard. 


Comme les sociétés concurrentes ont mis sur le marché des 
ordinateurs disposant de 128 K octets et plus, la société AMSTRAD 
se vit contrainte, avec ses partenaires, de sortir elle aussi un 
ordinateur 128 K octets. Et c’est ainsi qu’ AMSTRAD surprit son 
monde avec l'AMSTRAD CPC 6128. 


Le CPC 6128 dispose également d’un lecteur de disquette intégré et 
c'est certainement pourquoi le premier chiffre du nom de cet 
ordinateur est aussi un "6". Le CPC 6128 ressemble aussi plus au 
CPC 664 qu’au CPC 464. L'ordinateur 128 K octets est encore plus 
plat, très plat. Il dispose d’un clavier presque encore plus 
professionnel que celui du CPC 664. Les touches curseur ont été 
déplacées et ce clavier nécessite un certain temps d’adaptation: la 
touche COPY n'est plus au milieu du bloc curseur et les touches 
SHIFT ne se trouvent pas dans la ligne inférieure mais au dessus 
des touches "CONTROL" et "ENTER", Cela entraîne au moins au début 
des fautes de frappe de temps à autre. 


Le Basic n’a pas été modifié dans la version CPC 6128, la version 
intégrée est toujours la version 1.1. AMSDOS, c’est-à-dire le 
système d'exploitation intégré pour le lecteur de disquette est 
fort heureusement identique pour les trois ordinateurs. Les 
lecteurs de disquette 3 pouces sont par ailleurs des lecteurs très 
rapides et très fiables comme en conviendront certainement ceux qui 
ont l’habitude d’utiliser également d’autres lecteurs de disquette. 


Les connexions à l’arrière de l’ordinateur ont également été un peu 
modifiées. Les connexions du lecteur de disquette et de 
l'imprimante (Centronics) ont progressé en qualité. Le CPC 6128 
dispose en outre également d’une connexion appelée extension. 
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Lorsque vous achetez le DDI-I ou le CPC 664, vous recevez une 
disquette système sur laquelle figurent CP/M 22 ainsi que le 
langage de programmation LOGO. Sur le CPC 6128, ce sont même deux 
disquettes qui vous sont fournies car tous les fichiers de CP/M 3.0 
ne rentraient pas sur une seule disquette. Les textes HELP 
notamment, c’est-à-dire les textes que vous pouvez appeler avec 
l'instruction CP/M 3.0 HELP, prennent beaucoup de place sur la 
disquette. Les acquéreurs d’un CPC 6128 reçoivnt également une 
disquette comportant CP/M 22. 


La plus importante différence entre le nouveau CPC et ses 
prédécesseurs est toutefois la place mémoire disponible. Elle a ici 
été tout simplement multipliée par deux. Le programmeur Basic en 
profite cependant moins que le programmeur en langage machine; il 
ne dispose toujours que de 42249 octets. On ne peut rien y changer 
sans recourir à des astuces. Mais les 128 K octets de mémoire 
disponible sur le CPC 6128 permettent à cet ordinateur de faire le 
saut de CP/M 2.2 à CP/M 3.0. CP/M 3.0 est la version courante de 
CP/M pour les ordinateurs 128 K octets. 


Les deux versions de CP/M permettent de travailler de façon très 
agréable. Bien entendu, CP/M 3.0 est un peu plus puissant mais cela 
est dans la nature des choses. C’est à cela que sert le progrès et 
la société Digital Research développe toujours un peu plus son 
programme Nobel CP/M. 


Comme cet ouvrage doit servir de livre d’entraînement pour tous les 
ordinateurs CPC, les instructions de CP/M 22 sont décrites aussi 
bien que celles de CP/M 3.0. Presque toutes les instructions CP/M 
22 peuvent également être utilisées sous CP/M 3.0. Les 
instructions qui ne peuvent être utilisées que sous CP/M 3.0 sont 
indiquées spécialement. 
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NOUVELLE EDITION 
DU LIVRE DU LECTEUR DE DISQUETTE 
AMSTRAD 
POUR LES CPC 6128, 664 & 464. 


Pour l'AMSTRAD CPC 6128 ,aucunecommande d'utilisation du lecteur 
de disquette n’a besoin du caractère @ devant une variable 
alphanumérique. 

Page : II - 127 : 

Ligne 1000 : Pour un CPC 664 et 6128 remplacez le "ERR <>18" par 
"ERR <>32". 

Page : II - 145 : 


Ligne 70 : 70 PRINT #9,STRINGS(64,32) 


Page : II - 180 : 

Ligne 3170 : Pour un CPC 664 ou 6128, remplacer le "ERR<>18" par 
"ERR<>32". 

Page : II - 187 : 


Ligne 7060 : 
7060 INPUT NEWBYTS:NEWBYT$=UPPERS(NEWBYTS) 


Ligne 8050 : 
8050 TRACK=(A*2+18)/9 


INDEX 


Les numéros renvoient au chapitre concerné 


& 
BA essor sssssoussonmaueeuueereueus 2.1.11 
881 MESSAGE ON OFF......,,,,,,.,,,. 2.2,2,1 
882 DRIVE PARAMETER.....,,,,,,.,,,, 2.2,2.2 
883 DISK FORMAT PARAMETER,,,,,,,,,, 2.2.2,3 
884 READ SECTOR...,..,,,,,,,,,.,,.. 2,2,2.4 
885 WRITE SECTOR..,.,,.,,,,,,,,,,,,, 2.2.2,5 
886 FORMAT TRACK,.,.,.,, RC OT TEE 2.2,2.6 
887 SEEK TRACK.,,,,,.,,,,,,.,,,,.,4 2.2.2,7 
888 TEST DRIVE.......,.,, TOITS 2.2,2.,8 
889 RETRY COUNT,,,,.., Civérrii een 2.2,2,9 
8BC77 ,,,,,.,, sourrsnnnnureuss sorss 2,1 
BBCTR uso tes ea eee ee eu 2.1 
&BC7D ,,,..,, Sn een lente Ms 2,1 
SBC8O ,, essor, vossseruus vs 2,1 
RBCBS: near uses r sooonsues ss 2.1 
8BC86 ,,.,,..,,,,,,,,44ssssscunre 2.1 
8BC89 ,,,,.,,,,.., ET ‘. 2.1 
BBCBC'rasiememamnensintininuéuns 2.1 
&BC8F CAS OUT CLOSE.....,,,,.,,,.., 2.1 
&BC92 CAS OUT ABANDON....,,,,,,,,,, 2.1 
8&BC95 CAS OUT CHAR.....,,,,,,,,,,,, 2.1 
8&BC98 CAS OUT DIRECT..,,,,......, . 2.1 
8&BC9B CAS CATALOG....,,,,,,,,,,,,,, 2.1 
BAKovssrisessresemomeuvsereceenen 2.1 

8 
80 PISTES (LECTEURS 4A),.,.,,..,,,,,, 3.1.2.4 

À 
C0 1.3.15, 1.4.4, 2,2 
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ACCES DIRECT.,.,,,,.,,,,,,,,,,,,,., 1,1, 1.5.1 


ADRESS MARK,.,.,,.,,,,,,,,,,,,,,,,,: 3,2,4,2 
ADRESSE DE CHARGEMENT,..,,,,,.,,,.,. 2.1.5 
ADRESSE DE PORT DU FDC...,.,,,,,.... 3,1,2.4 
AMSDOS (ROM).,,,,,.,,,,,,,,,...,,,. 2.1 
AMSDOS same amet rasé ma tenant 1,3,21, 1.4 
AROBAS nes ee scans ne con een 2,2 
ASCII (FICHIER),.,,,,,,,,,,,,,,,,,, 3,2,3, 2,1.8 
ATTRIBUT us asie ceorseps es 3,2,2 
ATTRIBUT SYSTEME..,.,,,.,,,,,,,,.., 3.2,2 

B 
Bis ant han ont ie 1,3.15, 1,4,4, 2,2 
BANDE MAGNETIQUE,..,..,,,,,,.,..,,, L1 
BAUD Seti maniere maine a aurons 1,1 
BDOS re desert da ré sn res de 1.3.7 
BLOC smaceiees à mn ce da ee dans 1.3,3, 3,2,2 
BLOCS (AFFECTATION DES),.,,,,,,,,,,. 3,2,2 
BLOC (NUMERO DE)..,.,,,,,,,,,,,,,,.. 3.2,2,1, 2.1,8 
BLOC DE DONNEES. .,.,,,,,,,,,,,,,,,.. 2,1.5 
BOOTGEN.,,..,,,,,,,,,,,,.,,,,.,,,,,, 13.18 
BÜFFER uen ris orréimaiateeminne 1,5,3 
BUFFER D'ENTRÉE SORTIE..,,,,,,,,,,. 1.5.3 

C 
CAPACITÉ... suis ss esauuuuuss 1.2.1 
CARRIAGE RETURN....,,,,,,,,..,,,,,, 1.5.1 
CAS CATALOG, ..,,,,,,,,,csoruuss 2.1 
CAS IN ABANDON...,.,,,,,,,,,,,,,,,.. 2.1 
CAS IN CHAR... sens uuesures 2.1 
CAS IN CLOSE, ,.,,,,,,,,44,4esssurs 2.1 
CAS IN DIRECT...,,,,,,,,,,,,.,,,.., 2.1 
CAS OUT ABANDON,,,,,,,,,,,,,,,,,.,, 2.1 
CAS OUT CHAR..,,.,,,,.,,,,,,,,, vusus Zil 
CAS OUT CLOSE. ..,,,.4scoeussossese 2.1 
CAS OUT DIRECT..,,,,,,,,,,.,,,,,,... 2.1 
CAS RETURN... ss 2.1 
CAS TEST EOF.,.,,, 4,444 2.1 
CAS OUT OPEN....,,,..,,,,.,,,,,,,, 2,1 
CAT CINSTRUCTION),...,,,,..,,,,,.,, 2.1.1,3 
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CAT ets der ae nf ae a ft 1.4,3 
COPiéenentess de Rte marne ne see 1.3,7 
CHAIN MERGE..,,,,,,,,,,,,,,,,,,,,, 2,1.14 
CHAMP DE DONNEES, .,,,,,,,,,,,,,,,,, 1,5,1, 1.5.3 
CHAMP MAGNETIQUE,..,.,,,,,,,,,,,,., 3.2.4 
CHECKSUM (VALEUR DE CONTROLE).,,,., 3,2,4,2 
CHKDIS Gi s re er ha nenees. 1.3.6 
CONNEXIONS DU FDC....,,,,,,,,,,,.,, 3.1.2,1 
CONTROLE (CODES DE),,,,,,,,,,,,,.,. 1.3.6 
COPIER naine d Fans 1.3.3, 1.3,9 
COPYDIS Cr émanant 1,3,5,1 
CPC 66 strate rares oc mo raste 1.1 
CRMsse ne annee datent naar as 1,4,4, 1,3, 2,2 
CRC COCTETS di carre mremeeraraure 3,2,4,2 
CRITERE EOF 814,,.,,,.,,,,,,,,,,,,,, 2.1.6 
CRITÉRE EE OR meta are tacnie ie 2.1,11 
CYCLIC REDUNDANCY CHECK.,,,.,,,,,,,, 3,2,4,2 

D 
DATA ADRESS MARK..,,,,,,,,,,,,,,,,, 3,2,4,2 
DELAI D'ATTENTE,..,,,.,,,,,,,,,,,,.., 4,1 
DELAIS D'ATTIENTE..,..,,,,,..,,,,,,,, 2,2,2.2 
DENSITE SIMPLE..,,,,,,,,,,.,,,,,,.,, 3.2.4 
DERR it eat maintenir 2,2,2,1 
DESCRIPTEUR DE CHAINE,,,,.,,,,,,,,, 2,2,1 
DIFFERENCES DE REGLAGE,,.,.,,,,,,,, 3,2,4,2 
DIR CINSTRUCTION),.,,,,,,,,,,,,,,,. 2.1.13 
DIRE eat na a men 1,3,11, 14,2, 1.4.4, 2,2 
DISC,INsscss ses sssscsoscsaueiuuss 1.4,4, 2,2 
DISC OUT canines ss esrammenses 1,4,4, 2,2 
DÉS Crete donnes dnieuta titane 1.4,1, 1.4.4 
DISC CONTROLLER...,,,,,,,,,,,,,.,,,, 2,3 
DISCEHK sera e pesé amenerenienss 1.3,6 
DISCCOPY . soc ss cresson ssosssreuuue 1,3,4 
DISK CATALOG &BC98.,.,.,,,,,,,,,,.,, 2.1.1,3 
DISK IN ABANDON gBC7D..,,,.,,,,,,,,,, 2.1.3 
DISK IN CHAR &BC80...,,,..,,,,,,,,,, 2.1.4 
DISK IN CLOSE gBC7A...,,.,,,,,,,,,,, 2.1,2 
DISK IN DIRECT gBC83..,,..,,,,.,,,,, 2,1,5 
DISK IN OPEN 8BC77..,,,,,,,,,,,,,,,, 2.1.1 
DISK OUT ABANDON eBC92.,,.,,,.,,,,,.,, 2.1.10 
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DISK OUT CHAR 8BC95....,,.,,,,..,,,.. 2.1.11 
DISK OUT CLOSE &BC8F,,,,,,,,,,,,,.,,, 2.1.9 
DISK OUT DIRECT &BC98...,,,,...,,,,.. 2.1.12 
DISK OUT OPEN gBC8C..,,.,,,,,,.,,,,, 2.1.8 
DISK PARAMETER BLOCK,,,,,,,,..,,, … 4,1 
DISK PARAMETER HEADER.....,,,,,..,, 4,1 
DISK RETURN 8BC86..,,.,,,,,,,,,,,,., 2.1.6 
DISK TEST EOF 8BC89..... pisse suisse 2,117 
DISQUE: sisi scsi ren ss 1.1 
DISQUETTE,,,.,,,,,,,,,,,,,,,,,,,,.. 1.3.3, 1,2 
DISQUETTE (STRUCTURE),,,,,,,,,,,,,, 3,2 
DISQUETTE (FORMAT).,.,,,,,,,,,,,,,.,, 3.2.1 
DISQUETTE (FORMATS),,,,,,,,,,,,,,.,, 1.3.7 
DISQUETTE SYSTEME CPM.,,,,,,,,,,,., 2.2,2,4 
DMA soso csssocsuvessosouueess 3.1,2 
DONNEES SUPPRIMEES (DELETED DAM). 3.1.2.2 
DOS tn ne dei ee date 2.1 
DOUBLE DENSITE..,.,.,,..,.,,,,,,,,,,, 3.2.4 
DPB (DISK PARAMETER BLOCK)...,,,,,, 4,1 
DPH (DISK PARAMETER HEADER),.,,,,,,, 4,1 
DRIVE SELECT (SIGNAUX)..,,,..,,,,,, 3.1.1 
DRIVE re rer msn 1.4,4, 2,2 
E 
ECRIRE DONNEES SUPPRIMEES .,.,,,.., 3.1.2,2 
END OF FILE... , ss suscuuuuuuure 2.1.4 
ENTRY ADRESS..,,,,,..., noonrouneuss 2.1.5 
ENREGISTREMENT. .,,,,.,,,,,,,,,,,,., 1,5,1, 1,5,3 
ENREGISTREMENT PHYSIQUE DES DONNEES 3.2.4 
ENREGISTREUR. ..,,,,,,,,,,4,,4414: 2.1 
EF docteur te 1,4,2, 1.5.2, 2,1,7 
ÉPROM aies mt ie usees tiotunane 2.3: 
ERA us soscssoocoucanesesronteosteuss 1.3.12, 1.4,4, 2,2 
ETAT D'INTERRUPTION..,,,,,,,,,,,,., 3,1.2.2 
ETAT LECTEUR...,,,..,,,,,,,,, sosuue 23,1.2,2 
EXTENSIONS D'INSTRUCTION DE L'AMSDOS 2,2 
EXTENSION...,,.,,,,,,,,,,,,.,,,,,,,, 2.1.1 
EXTENSION D'ENTREE CATALOGUE,,,,,., 3,2,2 
F 
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FDC: 7/65 raser rimes 3.1,2 
FLCMÉERE an en een sn 1.1, 1,53 
FICHIER AUXILIAIRE.,......,,,,,,,,, 1,53 
FICHIER D'ENTRÉE, ..,,,,,,,,,,,,,,,, 2.1.3 
FICHIER TEMPORAIRE ($$$).,,,,,,,.., 2.1.8, 2,1.9 
EIÉECOP VS ne er mate taire 13,9 
FIRMWARE MANUAL,...,,,,,,,,,,.,,,, 2,1 
FORMAT DE DONNEES, .,.,...,,,,,.,,,,. 3.2.1.2 
FORMAT cine congés une mare 1,3,3, 3,2,1,1, 1.3.7 
FORMAT IBM 3740....,,,......,,,,,,. 3.1.2 
FORMAT SYSTEME IBM 84,,,,,,,,,,,,.. 3,1,2 
FORMAT. IBM écuries vssesueevéess 3,2,1,3 
EORMATAGE sin mneomammnréii tu 3.2.1,1 
FORMATER dan nn deb mot dotns 1,33 

G 
GAP etes sara en entrera 3,2,4,2 
GARBAGE COLLECTION..,.,,,,,,,,,,,,,, 1.5.3 
GET ana rés ten de retenue 1,5,5 

H 
HEAD LOAD TIME,.,.,,..,,,,,,.,,,,,, 2.2.2,2 
HEAD SELECT (SIGNAL),,,..,,,., Pre 3.1.2.4 
HEAD UNLOAD TIME....,,, PR TIRE 2,2,2,2 
HEADER DE FICHIER......,.,,,,,,,,., 2.1.5, 2.1,6, 2,1,8 
HEADER ENREGISTREMENT. .,,,,,,,,,,,. 3,2,3 

I 
ID DE SECTEUR.,,,,,,,,,,,,,,,,,,,,, 3,2,4,2 
IMPULSION DE FRÉQUENCE. .,,,,,,,,,.,, 3,2,4,1 
IMPULSIONS D'HORLOGE...,,,,,.,,,,., 3,2.4,1 
INDEX CIMPULSION),.,,,,,,,,,,,,,,.. 3,1.2,2 
INDEX (ORIFICE)..,..,,,,,,,,,,,,,.,, 3,2,4,2, 1,2.1 
INPUT# sis sssaienascinoecuuuens 1,5,1, 1,545 
INPUT FILE (FICHIER D'ENTRÉE)... 2.1.3 
INSTRUCTION DE FICHIER.....,.,,,,,.. 1.4,3 
INSTRUCTIONS RESIDENTES,,,,,,,,,,,, 1,3,8 
INSTRUCTIONS TRANSITOIRES....,,.... 1.3.8 
TAPE rte de sonner manu te 1.4,3 
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KL FAR PCHL...,,,,,,,.,,,,,,,,, 
KL FIND COMMAND.......,,.,,,.,,., 


LANGAGE MACHINE..,.,,,,,,,,,,,, 
LECTEUR À DOUBLE TETE.,,,.,,,,,, 
LECTEUR DE CASSETTE. .,,,,,,,,,, 
LECTEUR DE DISQUETTE...,,,,,,,, 
LINE INPUT #....,,,,,,,,,,,,,,, 


MONITEUR DE DISQUE.,,,,,,,,,,,, 
MOTEUR (FLIP FLOP),,,,,,,,,,,,, 
MOVCPMi né irsmreameuvetaur 


NOMBRE DE TENTATIVES DE LECTURE... 


NOM DE FICHIER (FILENAME)...... 


ON ERROR GOTO..,,.,,,,,,,,,,,,., 
OPENTN usée asus sienne 
OPENOUT sons on ge ces ces 


.... 2.2.1, 2,2.2,1 
sue 2a2it 


<= 


FE — = — 


vers 2: 
3,1.2,4 


\N 
— NN — D NN N ND — — 1 — 
Lo * 


Do 2N EEE EE — NN 


P à 


2.2,2.9 
….. 2.1.1, 2,1,8 


isis 22:21 


us. 14,2, 2,1 
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OUVERTURE D'UN FICHIER....,,,,,,.., 2.1.1 


P 
PARAMETRES (TRANSMISSION)...,..,,.,, 2.2.1 
PARAMETRES (TABLE)....,,..,,.,,..., 2.2.2.4 
PATCHING (DETOURNEMENT DE VECTEURS) 2.1.14 
PIPo ss ssesscsesesssenuneuesveeinees 13,9, 1,3.16 
PAST enter den eme ner 1.3.3 
PISTES RESERVEES...,,,,,,,,,.,,,.., 3.2.1.1 
PISTE SYSTEME.,,.,,,,,,,,,,,,,,.,.. 3.2,1.1 
PHASE EXECUTION,,,,,,.,,,,,,,,,,,,, 3.1,2,2 
PHASE INSTRUCTION...,,,,,,,,,,,,,,, 3.1,2,2 
PHASE RESULTAT...,.,,,,.,,,,,,,,,.. 3.1.2,2 
POINTEUR INTERNE,,.,,,,,,,,,,,,,,,, 1.5.1 
PORT D'EXTENSION..,,,,,,,,,,,,,,,,. 2,3 
PRINT este ennemie toeguint 1.5.2, 1.5.4 
PROBLEMES DE LECTURE. ..,.,.,,,,,,,... 2.2,2,9 
PROGRAMME MACHINE, .,,,,,,.,.,,,,,,,, 2.1.8 
PROTECTION CONTRE L'ECRITURE.....,, 12,1 

R 
RAM SYSTEME, ..,,,,,,,,,,,,,,,,,,,., 4,1 
READ ONLY CATTRIBUT),,,..,,,,,,,,,, 3,2,2 
RECONNAISSANCE HEADER ENREGISTR..., 3,2,3 
REGISTRE D'ETAT..,,,,,,,,,,,,.,,.... 3.1.2,2, 3.1.2,3 
REN ss oueuupoueussennscsenenssouues 1,3.13, 1.4.4, 2,2 
RESTART,,,,,,,,,,,,,, sosriseus sois 2:2,2,2 
RETOUR DE CHARIOT.....,,,,,,,,,,,,, 1.5.1 
ROM D'EXTENSION,..,,.,,,,,,,,,,,.., 4,1 
ROM DE PREMIER PLAN..,,,,.,,,,,..,, 4,1 
ROM DE SECOND RANG..,,,.,,,,,.,,..,, 4,1 
ROUTINE scie csssscsuuoouuunnuusu 2.1 
RSX ss ssscssusssseunsuuucueuresust 2.2 
RUN ss suce seu oo scivussueset 1.4,2 

S 
SAUVEGARDE DE DONNEES....,,,,.,,... 3.2.3 
SAUVER FICHIER SUPPRIME, ,.,,,,,,.., 3.2,2 
SAVE"FILENAME"..,,..,,,.,,,,,.4... 1.4.3 
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SCHEMA DE FONCTION..,,,,,,,,,,,,,,, 2.3 
SECTEUR ss: amemmein enter 1,1, 1.3,3, 3.2.2 
SECTEUR CTAILLE)..,,,,,,,,,,,,,,,,, 3,2,1 
SEPARATEUR DE DONNEES. .,,,,,,,,,,.. 2.3, 3.1.2.4 
SEQUENTIEL à 4 sc sig itisecescn 1.1, 15,1, 2.1.4 
SÉTUPh Pre ta dress tan ma anses 1.3,20 
SITUATION DU CATALOGUE, ..,,,,,,,.,, 3.2,2 
SPEED: HRITE gs cas einen aan 2.1 
STATE create be nintendo are 1.3.17 
STRING DESCRIPTOR,,..,,,,,,,,,,,,,, 2.2.1 
STRUCTURE DU CATALOGUE..,...,,,,,... 3,2,2 
STRUCTURE DE FICHIER..,,,,,,,,,,,,, 3.2,3 
SYMBOLE DE SEPARATION.......,,,,,., 1.5.1 
SYMBOLES DE SEPARATION,,,,.,,,,,,,, 1,5,2 
SYNC ES renard mére 3.2,4,2 
SYSGENrsnite ne ire trente dne té iien 1,3,19 
T 
TAILLE DU CATALOGUE..,.,,,..,,..,., 3,2.1 
TAILLE DE FICHIER,..,,,,,,,,,,,,,4, 2,1,1,2 
TAPE IN ss sos ses ssuuccocurruu 1.4.4, 2,2 
TAPE OUT, ,,,,4,,, sis sseesuses 1,4,4, 2,2 
TAPE sis osssocanss sueur 1.4,3, 1.4.4, 2,2 
TEMPS D'ARRET DU MOTEUR...,,,,,,.,, 4,1, 2,2,2.2 
TEMPS DE CHANGEMENT DE PISTE...,... 2.2,2,2 
TENTATIVES DE LECTURE...,.,,,,.,,,, 2.2,2,9 
TERMINAL COUNT CIMPULSION),..,...... 3.1,2.2 
TETE DE LECTURE/ECRITURE...,,,,..., 1.2.1, 3.2.4 
TICKER EVENT... secs 2.2,2,2 
TRACK (PISTE)... ssssssussuususs 1.3.3 
TRANSFERT DE DONNEES..,.,,,,,,,,,,, 2.3 
TYPE DE FICHIER, ss sscussuuuues 3.2,3, 2,1,8, 2,1.12 
TYPE soso cs sssusscricuessouenss 1.3.14 
TYPE SCNOM een ren une 1.3.9 
U 
UPD 765 sus case re mesesas en 2,3 
USER, scsi sesseiseussercsuorensee 1.4,2, 1,4,4, 2,2 
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VALEUR DE CONTROLE, ..,,,,,,,,,,,.,, 3.2,4,2 
VALEUR DE SELECTION DE LA ROM...... 2.1.14 
VARIABLE CPOINTEUR)...,,,,.,,,.,,,. 1.4.4 
VARIABLES DE CHAMP..,,,,,,,,,,,,,,, 1.5.3 
VECTEUR. essuie seuscussmeuee 2.1, 2,1.14 
VECTEUR DU DOS,,,,,,,.,,,,,,,,,,,,,, 2.1 
VERSION (NUMERO).,,,,,,,,,,,.,,.... 2.1.8 

W 
WARM BOOT........,,,,,.,,,,,.,,,,,, 3.2,1.1 
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AMSTRAD NOUS VOILA! 
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DONSTS CPC 464 pus YF TIC  Ret 
sANC ou de programmes _irééremsants 
AMSTRAD 464 tels Quune gesion de Boitier 
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Dies ce lvre VOUS Gaure Un avec éGheut, Mherpréteur, FOU- 
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TRUCS ET ASTUCES 


MICRO APPLICATION MICRO APPLICATION 
EAUTÉS NOUVEAUTÉS NOUV 





LIVRE DU LECTEUR 
DE DISQUETTE 
AMSTRAD CPC (Tome 10) 


Tout sur la programmation et la 
gestion des données avec le floppy 
DDI-1 et le 664 ! Utile au débutant 
comme au programmeur en langage 
machine. Contient le listing du DOS 
commenté, un utilitaire qui ajoute 


LE NOUVEAU COMMODORE 128 


Ce livre présente le nouveau 
Commodore 128. Vous y trouverez un 
aperçu complet des possibilités du 
successeur du célèbre “64” et une 
présentation détaillée des trois 
operating system. Le super nouveau 

















MICRO APPLICATION 


les fichiers RELATIFS à l'AMDOS 
avec de nouvelles commandes BASIC, 
un MONITEUR disque et beaucoup 
d'autres programmes et astuces. Ce 
livre est indispensable à tous ceux 
qui utilisent un floppy ou un 664 
AMSTRAD. 


Réf. : ML127 
Prix : 149 FF 
















des themes abordés. Ce livre doit 
être lu par tous ceux qui suivent de 
Ce livre décrit la superbe machine près le monde de la micro- 
qu'est l'ATARI ST. informatique. 

Architecture, interfaces, operating 

system, le bios, GEM, LOGO, le Réf: MLI125 

processeur 68000, sont quelques-uns Prix : 129 FF 


LE NOUVEL ATARI ST 





BASIC Commodore 7.0 est décrit ainsi 
que la configuration de la mémoire, 
la page zéro et le nouveau et rapide 
lecteur de disquette 1571. Pour tous 
les Commodoristes ! 


Réf. : ML130 
Prix : 129 FF 
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TRUCS ET ASTUCES POUR 
L'AMSTRAD CPC (Tome 1) 


C'est le livre que tout utilisateur 
d'un CPC doit possèder. De nombreux 
domaines sont couverts (graphismes, 
fenêtres, langage machine) et des 


Aero Ale", Le )] 


LES LIVRES AMSTRAD 






super programmes sont inclus dans 
ce best-seller (gestion de fichiers, 
éditeur de texte et de sons...). 





A 


MICRO APPLICATION 


Réf. : ML112 
Prix : 149 FF 





PROGRAMMES BASIC POUR désassembleur, un éditeur graphique, 
LE CPC 464 un éditeur de texte. Tous les 
programmes sont prêts à être tapés 
et.abondamment commentés. 





ALIMENTEZ VOTRE CPC 464 


Ce livre 
programmes, 


contient de super Réf. : ML119 
notamment un Prix : 129 FF 





LE BASIC AU BOUT DES 
DOIGTS CPC 464 


Ce livre est une introduction 
complète et didactique au BASIC du 
micro-ordinateur AMSTRAD CPC 
464. il permet d'apprendre 
rapidement et facilement la 
programmation (instructions BASIC, 
analyses des problèmes, algorythmes 
complexes...) 

Principaux thèmes abordés : 

- Les bases de la programmation 


- Bit, Octet, ASCII 

- Instructions du BASIC 

- Organigrammes 

- Les fenêtres 

- Programmes BASIC plus poussés 

- Le programme et menus. 
Comprenant de nombreux exemples, ce 
livre vous assure un apprentissage 
simple et efficace du BASIC CPC 464, 


AS 


MICRO APPLICATION 






Réf. : ML118 
Prix : 149 FF 
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MICRO APPLICATION "MICRO APPLICATION 


AMSTRAD OUVRE-TOI 


Le bon départ avec le CPC 464 ! Ce 
livre vous apporte les principales 
informations sur l'utilisation, les 
possibilités de connexions du CPC 
464 et les rudiments nécessaires 
pour développer vos propres 





LA BIBLE DU PROGRAMMEUR 
DE L'AMSTRAD CPC 464 
(Tome 6) 


Tout, absolument tout sur le CPC 
464. Ce livre est l'ouvrage de 
référence pour tous ceux qui veulent 
programmer en pro leur CPC. 
Organisation de la mémoire, le 





















programmes. C'est le livre idéal 
pour tous ceux qui veulent pénétrer 
dans l'univers des micro-ordinateurs 
avec le CPC 464. 


MICRO APPLICATION 


Réf. : ML120 
Prix : 99 FF 





JEUX D'AVENTURES. COMMENT 
LES PROGRAMMER 


générateur d'aventures pour program- 
mer vous-mêmes facilement vos jeux 
d'aventures. Avec, bien sür, des 


Voici la clé du monde de l'aventure. programmes tout prêts à être tapés. 


Ce livre fournit un système 
d'aventures complet, avec éditeur, Réf. : MLI?1 
interpréteur, routines utilitaires Prix : 120 FF 


et fichiers de jeux. Ainsi qu'un 



















contrôleur vidéo, les interfaces, 
l'interpréteur et toute % ROM 
DESASSEMBLEE et COMMENTEE 
sont quelques-uns des thèmes de cet 
ouvrage de 700 pages. 


Qi Ver \ eo" 


Réf. : ML122 
Prix : 249 FF 















LE LANGAGE MACHINE DE 


routines systéme, tout est expliqué 
L'AMSTRAD CPC (Tome 7) 


avec de nombreux exemples. Contient 
un programme assembleur, moniteur et 
Ce livre est destiné à tous ceux qui désassembleur. 
désirent aller plus loin que le 
BASIC. Des bases de la programmation Réf. : ML123 


en assembleur à l'utilisation des Prix : 129 FF 
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GRAPHISMES ET SONS DU CPC 


L'AMSTRAD CPC dispose de 
capacités graphiques et sonores 
exceptionnelles. Ce livre en montre 
l'utilisation à l'aide de nombreux 
programmes utilitaires. 

Contenu : 

- base de programmation graphique 

- éditeur de police de caractères 

- “sprites”, “shapes”, et chaines 

- représentations multi-couleurs 

- calcul des coordonnées 


MICRO APPLICATION 


MONTAGES, EXTENSIONS ET 
PERIPHERIQUES AMSTRAD CPC 
(Tome 11) 


Pour tous les amateurs d'éléctro- 
nique ce livre montre ce que l'on 
peut réaliser avec un CPC. De 
nombreux schémas et exemples 


ASS 


MICRO APPLICATION 


- rotations, mouvements 

- représentations graphiques de 
fonctions en 3D 

-  D.AO. (dessin assisté par 
ordinateur) 

- synthétiseur 

- mini-orgue 

- enveloppes de son, et beaucoup 
d'autres choses. 







Réf. : ML124 
Prix : 129 FF 





PEEKS ET POKES DU CPC comment protéger la mémoire, calcu- 
(Tome 9) ler en binaire. et tout cela très 
facilement. Un passage. assuré et 
sans douleur du BASIC au puissant 
LANGAGE MACHINE. 





Comment exploiter à fond son CPC à 
partir du BASIC ? C'est ce que vous 
révèle ce livre avec tout ce qu'il 
faut savoir sur les peeks, pokes et Réf. : ML126 
autres call. Vous, saurez aussi Prix : 99 FF 





SR 


Ale or er \te | 


illustrent les thèmes et applica- 
tions abordés comme les interfaces, 
programmateur d'EPROM.. Un très 
beau livre de 450 pages. 


Ref: ML131 
Prix : 199 FF 
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LE LIVRE DU CP/M AMSTRAD 
(Tome 12) 


Ce livre vous permettra d'utiliser 
CP/M sur les CPC 464, 664 et 6128 
sans aucune difficulté. Vous y 
trouverez de nombreuses explications 


MICRO APPLICATION 


et les différents exemples vous 
assureront une maitrise parfaite de 
ce très puissant système d'exploi- 
tation qu'est CP/M. (300 pages). 


Réf. : ML128 
Prix : 149 FF 


DES IDEES POUR LES CPC 
(Tome 13) 


Vous n'avez pas d'idées pour 
utiliser votre CPC (464, 664, 6128) 
? Ce livre va vous en donner ! Vous 
trouverez de très nombreux 
programmes BASIC couvrant des sujets 
très variés qui transformeront votre 













ASS 


MICRO APPLICATION 






CPC en un bon petit génie. De plus 
les programmes vous permettront 
d'appronfondir vos connaissances en 
programmation. 

(250 pages). 


Réf. : ML132 
Prix : 129 FF 





AMSTRAD AUTOFORMATION 
A L'ASSEMBLEUR 
EN FRANCAIS 


Contient un livre et un logiciel. 

LE LIVRE : 

Cet ouvrage introduit le débutant à 
la programmation du Z80 grâce à la 
méthode du DR WATSON qui selon les 
critiques vaut son pesant d'or ! 
Aucune connaissance préalable n'est 
requise et le but du livre est 
d'assurer au novice un succès total. 
A la fin du livre les instructions 
du Z80 sont expliquées en détail. De 
nombreux exemples illustrent les 
différentes étapes du cours alors 
que des exercices (les solutions 
sont fournies) testent la compré- 
hension. 

LE LOGICIEL : Un assembleur Z80 


complet est livré sur cassette et 
comprend : 

- Etiquettes Symboliques 

- Directives d'Assemblage 

- Chargement/Sauvegarde 

- Copie Ecran 

- INSERT / DELET. 

L'assembleur permet d'écrire des 
programmes facilement en langage 
d'assemblage puis les transforme en 
code machine (langage machine). Pour 
vous aider à comprendre les 
rotations mathématiques utilisées, 
une démonstration de l'utilisation 
des nombres binaires et hexadécimaux 
est fournie. Un programme utilisant 
les commandes graphiques 
additionnelles décrites dans le 
livre est également fourni. 


Réf. : ML126 
Prix :195 FF K7- 296 FF- disquette 
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TEXTOMAT AMSTRAD 
CPC 464 & 664 


Traitement de texte de 
professionnelle pour tous. 

Tabulation, recherche, remplacement, 
insertion, manipulation de para- 
graphes, calcul. Accents à l'écran 
et imprimante. Module permettant de 


qualité 








D.A.M.S. POUR AMSTRAD 
CPC 464 & 664 


D.A.MS. est un logiciel intégrant 
un assembleur, un moniteur et un 
désassembleur symbolique pour 
développer et mettre au point 
facilement des programmes en langage 
machine sur les micro ordinateurs 
AMSTRAD. Les trois modules sont co- 
résidents en mémoire ce qui assure 
une grande souplesse d'utilisation. 
Vous pouvez notamment utiliser un 
éditeur plein écran, un assembleur 


gérer tout type d'imprimante. Ecrit 
en LANGAGE MACHINE. Liaison 
avec DATAMAT pour mailingetlettres 
types personnalisées... TEXTOMAT est 
la solution traitement de texte sur 
CPC. Documentation complète. 


Réf. : AM305 
Prix : 450 FF 


DATAMAT AMSTRAD 
CPC 464 & 664 


La gestion de fichier la plus 
complète fonctionnant pour les 464 
et 664. Entièrement en LANGAGE 


immédiat, un désassembleur 
symbolique, une trace et beaucoup 
d'autres fonctions très puissantes. 
D.A.MS. est entièrement relogeable 
et est bien évidemment écrit en 
langage machine. 


Réf. : AM208 

Prix : sur cassette 
pour CPC 464 

Réf AM308 

Prix sur disquette : 395 FF TTC 
pour CPC 664 & CPC 464 


295 FF TTC 


















MACHINE. Fonctions de calcul, de 
tri, de recherche multicritères, 
impressions  paramètrables, liaison 
avec TEXTOMAT pour mailing. 
Documentation française de 60 pages. 


Réf. : AM304 
Prix : 450 FF 


MICRO APPLICATION "MICRO APPLICATION 





MICRO APPLICATION vous présente MICRO INFO, 
nouveau journal avec des dossiers, des bidouilles, des 
trucs et astuces, des nouveautés, des programmes et 
plein de rubriques sympas! (88 pages) 

Chaque numéro traite principalement de 3 matériels: 


AMSTRAD - COMMODORE - ATARI 
carte d'abonnement 


Je désire m'abonner à MICRO INFO 


(Le numéro 1 : 15 F + 5 F pour frais d'envoi 

O Le numére 2 : 20 F + 5 F pour frais d'envoi 

[Les numéros 1 et 2 : 35 F + 5 F pour frais d'envoi 

OJe choisis de m'abonner pour 4 numéros au prix de 7OF 


Je règle par O chèque 


O mandat 
DO CCP 
Nom : Prénom : 
Adresse : 
Code postal : date et signature: 


Veuillez nous retourner cette carte sous pli ainsi que 
votre règlement à l'adresse suivante : 


MICRO APPLICATION 
13 rue Sainte Cécile 75009 PARIS 


Achevé d'imprimer en février 1986 
sur les presses de l'imprimerie Laballery et C“ 
58500 Clamecy 
Dépôt légal : février 1986 
Numéro d'imprimeur : 602016 


CE LIVRE VOUS PASSIONNE, 
MAIS VOUS N’AVEZ PAS LE TEMPS 
DE TAPER LES PROGRAMMES 
ACHETEZ LA DISQUETTE 
DES PROGRAMMES DU LIVRE 


DU LECTEUR DE DISQUETTE AMSTRAD CPC ! 





NOM : 


PRENOM : 


ADRESSE : 





CODE POSTAL : VILLE : 





Je désire recevoir la disquette des programmes du livre DU LECTEUR 
DE DISQUETTE AMSTRAD CPC. 


Je joins a ce coupon un [chèque de 120 francs. 
[ CCP de 120 francs. 


Date : Signature : 
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IMPRIMÉ EN FRANCE 


TOUT SUR LE LECTEUR DE DISQUETTE AMSTRAD. 


Tout sur la programmation et la gestion des accès disque avec 
l'AMSTRAD CPC 6128 (664) ou l'AMSTRAD CPC 464 et le 
FLOOPY DDI-1 ! Ce livre vous fournira de nombreuses informa- 
tions et de précieux conseils ainsi que les listings d'utilitaires 
ultra-performants comme un MONITEUR DISQUE, une GES- 


TION DE FICHIERS RELATIFS... Vous trouverez également le 
LISTING du DOS commenté, la description électronique de 
l'appareil et une gestion de fichier complète. De nombreux 
exemples accompagnent chaque chapitre. 


Aperçu des différents sujets traités : 
Tout sur les fichiers séquentiels 
Listing d’une gestion de fichier 
Explication des messages d'erreurs 
Gestion de fichiers relatifs (!) 
Listing du DOS commenté 
Programmation des contrôleurs 
Moniteur-Disque 
Gestionnaire de Disque 
Programmation en Assembleur 
Utilisateur de CP/M 


Ce livre est le must absolu pour tous les heureux possesseurs 
d'un lecteur de disquette AMSTRAD. 


Prix : 149F TTC 
ISBN : 2-86899-022-3 Réf. : ML 127 
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